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IDENTIFICATION 


PRODUCT CODE:  AC-8428C-MC 

PRODUCT NAME: CZDCACO DC11 OFLNE DIAG TST 
DATE: FEB 1978 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
w Be ht eerie FOR ANY ERRORS THAT MAY APPEAR IN THIS 

NT. 


NO RESPONSIBIOITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR IT'S 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1975,1978 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
UNIBUS MASSBUS 
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ABSTRACT 


TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE DC-11 
CASYNCRONOUS MODEM INTERFACE), CZDCA (DC-11 OFF LINE 

TESTS) AND CZDCB (DC-11 ON LINE TESTS). THE OFF LINE 

TESTS TEST ALL DC11 LOGIC AND MAY BE USED TO INDIVIDUALLY 

TEST UP TO 32 DC-11°S. THE OFF LINE TESTS DO NOT REQUIRE THE 
USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR IS REQUIRED. 
THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE- 
QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 


THIS DOCUMENT DESCRIBES THE OFF LINE TESTS. 
THE AVAILABLE TESTS ARE: 
PRGO INPUT/OUTPUT LOGIC TESTS 
PRG1 TRANSMITTER SCOPE LOOP 
PRG2 RECEIVER SCOPE LOOP 
PRG3 SINGLE CHARACTER MAINT. MODE DATA TEST 
PRG4 SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 


REQUIREMENTS 


EQUIPMENT 
A. PDP 11/20 SYSTEM 
B. DC11 


C. SPECIAL JUMPER CONNECTOR (SEE DC11 MAINTENANCE MANUAL 
FOR DETAILED DESCRIPTION) 


STORAGE 


THIS PROGRAM USES ALL OF CORE (4K) EXCEPT THAT AREA RESERVED 
FOR THE BOOTSTRAP AND ABSOLUTE LOADERS. 


LOADING PROCEDURE 
THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM, 


SEQ 0002 


co ve 
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USE 


PROCEDURE 


BEFORE STARTING ANY OF THE DE: ew PROGRAMS MAKE 


THAT 


IS A LEGAL PR 


SURE 
THAT THE PROGRAM SELECTED 
SR 0-2=0-4 OTHERWISE PROGRAM OP 


THE TTY IS IN REMOTE MODE; 


OGRAM, IE. 
ERATION IS UNSPECIFIED. RELOAD PROGRAM AND START OVER. 


PRGO 


4. 


INPUT/OUTPUT LOGIC TESTS 


LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000200) 
LOAD SR 0-2 = AND PRESS START SWITCH. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGAM YOU SELECTED. 
*PRGO-INPUT-OUTPUT LOGIC TESTS. DISCONNECT DC11 FROM MODEM 
AND CONNECT JUMPER TO CABLE’ 
DISCONNECT THE DC11 FROM THE MODEM AND INSERT THE JUMPER CON- 
NECTOR IN THE MODEM END OF THE CABLE,AND PRESS CONTINUE. 
NOTE, IF THE CABLE IS LEFT CONNECTED TO THE MODEM THE FOL- 
LOWING TESTS WILL FAIL: 

ATS ,AT34~AT42,AT44,AND AT144 


THE PROGRAM WILL NOW REQUEST THE LINE # (8) YOU WISH TO 
TEST. LOAD THE LINE # AS REQUESTED AND PRESS CONTINUE. 


LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DC11 RESPONDS. 


77400X LINE 
77401X_ LINE 


77410X LINE 20 77420X LINE 30 774350X 
77411X LINE 21 77421X LINE 31 77431X 


77416X LINE 26 77426X LINE 26 77436X 
77407X_ LINE 77417X LINE 27 77427K LINE 27 77437xX 


THE PROGRAM WILL TYPE OUT INSTRUCTIONS TO SET IN THE DESIRED 
SR OPTIONS. PRESS CONTINUE WHEN THE OPTIONS ARE IN THE SR. 
THE AVAILABLE OPTIONS ARE: 

SR 0-6 ROUTINE TO BE RUN (IF ENABLED BY SRY) 

SR8 DISABLE STALL MODE 

SR9 LOOP SELECTED ROUTINE 

SR10 HALT AT END OF PROGRAM 

SR11 INHIBIT ITERATION 

SR13 INHIBIT PRINTOUT 


SR15 HALT ON ERROR. 
THE PROGRAM WILL NOW BEGIN TESTING THE DC11 YOU SELECTED. 
REFER TO SECTION 5.1.2 FOR ERROR DESCRIPTION 
AFTER ONE COMPLETE PASS PRGEND WILL BE TYPED OUT 
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SEQ 00035 


co ve 
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4.2 PRG? = TRANSMITTER SCOPE LOOP 


A. 


LOAD ADDRESS = 000200 

LOAD SR O-2 = 1, AND PRESS START SWITCH. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. LOAD THE LINE # AS RE- 
QUESTED AND PRESS CONTINUE. 


B. 
THE PROGRAM WILL REQUEST THE DC11 LINE PARAMETERS. LOAD THE 


D. 


PARAMETERS AS REQUESTED AND PRESS CONTINUE. 


THE PROGRAM WILL REQUEST A CHARACTER CODE, AND A DELAY 

TIME. THE CHARACTER CODE IS THE DATA THE DC11 WILL TRANSMIT 
AND THE DELAY IS THE TIME ELAPSED BETWEEN SUCCESSIVE TRANS- 
MISSIONS OF ONE CHARACTER. PRESS CONTINUE WHEN THIS IS DONE. 


THE PROGAM WILL RUN WITHOUT ERROR OR END TYPEOUTS. 


4.3 PRG2 - RECEIVER SCOPE LOOP 


A. 


LOAD ADDRESS = 000200 

LOAD SR 0-2 = 2, AND PRESS START. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. LOAD THE LINE # AS REQ- 
UESTED AND PRESS CONTINUE. 


THE PROGRAM WILL REQUEST THE DC11 LINE PARAMETERS. LOAD THE 
PARAMETERS AS REQUESTED AND PRESS CONTINUE. 


THE PROGRAM WILL REQUEST A TEST CHARACTER CODE, AND A DELAY 
TIME. THE CHARACTER CODE IS THE DATA THAT THE DC11 WILL BE 
TRANSMITTINGAND THE DELAY IS THE ELAPSED TIME BETWEEN SUCCES- 
SIVE CHARACTERS. PRESS CONTINUE WHEN THIS IS DONE. 


THE PROGRAM WILL NOW RUN WITHOUT ERROR OR END TYPEOUTS. 


SEQ 0004 


oe 
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4.4 PRG3 = SINGLE CHARACTER MAINT MODE DATA TEST 


A. LOAD ADDRESS =_ 000200 
LOAD SR O-2 = 3, AND PRESS START. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. LOAD THE LINE # AS REQ- 
UESTED AND PRESS CONTINUE. 


B. THE PROGRAM WILL REQUEST THE DC171 LINE PARAMETERS. LOAD THE 
PARAMETERS AS REQUESTED AND PRESS CONTINUE. 


C. THE PROGRAM WILL REQUEST A TEST CHARACTER. LOAD THE TEST CHAR- 
ACTER AND PRESS CONTINUE. 


D. ae PROGRAM WILL NOW RUN CONTINUOSLY REPORTING ANY DATA FAIL- 


4.5 PRG4 - SPECIAL BINARY COUNT MAINT. MODE DATA TEST 


A. LOAD ADDRESS = 000200 
LOAD SR O-2 = 4, AND PRESS START. 
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. LOAD THE LINE # AS REQ- 
UESTED AND PRESS CONTINUE. 


B. THE PROGRAM WILL NOW REQUEST THE DC11 LINE PARAMETERS. LOAD THE 
PARAMETERS AS REQUESTED AND PRESS CONTINUE. 


C. THE PROGRAM WILL BEGIN TESTING THE LINE YOU SELECTED. 
AND REPORT ANY DATA ERRORS. 
Pe PROGRAM DESCRIPTIONS 
Pot PRGO = INPUT/OUTPUT LOGIC TESTS 
THE INPUT/OUTPUT LOGIC TESTS CONSIST OF 103(8) ROUTINES WHICH 
MAY BE RUN IN SEQUENTIAL ORDER OR INDIVIDUALLY LOOPED (SEE 


SECT 4.1, C FOR SWITCH SETTINGS). THE JUMPER CONNECTOR MUST 
BE INSERTED BEFORE STARTING. 
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5.1.17 ROUTINE DESCRIPTIONS 

ROUT INE TESTS 

ATO=-AT3 ADDRESSABILITY OF CSRS & DBRS 

AT4-AT42 DIDDLES ALL BITS IN THE CSRS AND 
CHECKS THAT THEY CAN BE READ/WRITTEN 
PROPERLY. 

AT43-AT44 PROPER OPERATION OF RESET INSTRUCTION 

AT45-ATS51 PROPER OPERATION OF READY BIT 

ATS2-AT63 PROPER OPERATION OF CHAR LENGTH, SPEED 
CONTROL AND STOP CODE BITS. 

AT64 PROPER OPERATION OF DATA OVERFLOW BIT 

AT65~-AT74 PROPER OPERATION OF INTERRUPTS 

AT75 DATA OVERFLOW CLEARS DONE 

AT76 ERROR CAUSES INTERRUPT 

AT77 PROPER OPERATION OF PARITY BIT 


AT100-AT137 DATA TESTS THESE TESTS TEST 

ALL POSSIBLE COMBINATIONS OF CHARACTER 

LENGTH SPEED AND STOP CODES USING MAINT. MODE. 
AT140 DATA TEST HIGH SPEED (JUMPER) 


AT141 PROPER OPERATION OF BREAK BIT 
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5.1.2 ERROR DESCRIPTION 


IF A ROUTINE FAILS AND THE INHIBIT PRINTOUT SWITCH IS NOT 
ENABLED (SR13) A PRINTOUT RESULTS. THE PRINTOUT FORMAT IS: 


P(PROG#) T(ROUTINEA) PC=(PC OF ERROR CALL) AND AN 
ADDITIONAL/MESSAGE (IF APPLICABLE) 


POO TOOS PC=XXXx INDICATING THAT TXCSR BIT 1 
WAS SET (SHOULD'VE BEEN CLEAR> 
POO T122 PC=XXXX DATA ERR S/B:---WAS--- 


INDICATING A DATA ERROR 
WHEN DC11 PARAMETERS 

WERE SET AT CHAR LENGTH=6 
SPEED=00, AND STOP CODE=1 


TO RESUME TESTING PRESS CONTINUE. IF ROUTINES 65 OR 71 
FAIL DUE TO A BAD TRAP VECTOR, I.E. THE VECTOR PROVIDED 
BY THE INTERRUPTING DC11 IS INCORRECT THE PROGRAM WILL 
HALT AND DISPLAY THE VECTOR+2 THAT WAS PROVIDED BY THE 
INTERRUPTING DC11. TO RECOVER FROM THIS TYPE OF ERROR 
IT WILL BE NECESSARY TO PUT INTO THE INCORRECT VECTOR 
ADDRESS THE ADDRESS TO RUN THE ROUTINE. I.E. ADDRESS 
ATAA AND AXAA FOR ROUTINES 65 AND 71 RESPECTIVELY. 


5.1.3 JUMPER CONNECTOR 


THE JUMPER CONNECTOR TESTS THOSE F/F°S, GATES (RING INDICATOR, 
CARRIER TRANSITION, CLEAR TO SEND, AND SUPERVISORY RECEIVE 
DATA) WHICH CANNOT BE TESTED UNLESS A DATA SET IS ACTUALLY 
CONNECTED TO THE DC11. IN ADDITION TO TESTING DC11 LOGIC 

THE JUMPER ALSO TESTS CABLE WIRING TO/FROM THE DC11/DATA 

SET. THE FOLLOWING TESTS WILL FAIL IF THE CABLE IS NOT 
INSALLED IN THE DC11: 


ATS ,AT34~-AT42,AT44 
AT140 WILL LOOP CONTINUOSLY 


IF THE JUMPER IS REMOVED FROM THE END OF THE CABLE AND THE CABLE 
IS LEFT CONNECTED TO THE DC11 THE ABOVE TESTS WILL FAIL WITH THE 
PROBABLE EXCEPTIONS OF AT35 AND AT36. 
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5.2 PRG1-TRANSMITTER SCOPE LOOP 
THE PURPOSE OF PRG1 IS TO ALLOW SCOPING OF TRANSMITTER 
FUNCTIONS IN A RUN CONDITION USING USER SPECIFIED DC11 
PARMATERS AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 
5.3 PRG2-RECEIVER SCOPE LOOP 
THE PURPOSE OF PRG2 IS TO ALLOW SCOPING OF RECEIVER FUNCTIONS 
IN A RUN CONDITION USING USER SPECIFIED DC11 PARAMETERS 
AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 
5.4 PRG3-SINGLE CHARACTER MAINT MODE DATA TEST 


PRG3S TRANSMITS, RECEIVES AND CHECKS RECEIVED DATA USING USER 
SPECIFIED DC11, DC11 PARAMETERS, AND DATA. 


5.4.1 ERROR PRINTOUTS 
SELF EXPLANITORY ERROR PRINTOUTS ARE PROVIDED. 
5.5 PRG4-SPECIAL BINARY COUNT MAINT MODE DATA TEST 


PRG4 IS THE SAME AS PRGO ROUTINE 77 AND 100 EXCEPT THAT 
THE USER SPECIFIES DC11 RUNNING PARAMETERS. 


5.5.1 ERROR PRINTOUTS 
SELF EXPLANATORY PRINTOUTS ARE PROVIDED. 


6.0 POWER FAIL 
A POWER FAIL ROUTINE IS INCLUDED IN THE PROGRAM. WHEN THE POWER FAILS 
THE PROGRAM WILL AUTOMATICALLY RESTART USING THE PRESENT SR OPTIONS 
AND THE LINE PREVIOUSLY SELECTED. NOTE: THE POWER MAY FAIL WHEN THE 
PROGRAM IS EXECUTING A ‘RESET’ INSTRUCTION, IN THIS CASE OPERATOR 
INTERVENTION IS NEEDED TO PRESS CONTINUE. AN ERROR TYPEOUT RESULTS 
AND WILL TYPE THE PROGRAM #, THE ROUTINE THAT WAS RUNNING AT THE TIME 
a sory FAILED (PROGRAM 0 ONLY), AND THE PC OF THE POWER FAIL ER- 
LL. 


P(PRG#) TC(ROUTINE #) PC = (ADDRESS OF ERROR CALL) 
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DC11 DATA 


PARABARBASAASASAALALASASASAAREAL ARAL ARARARARAASRASRARARARSAARARASAASAS AAA SAAS SSS S| 


LINE # * UNIT# * RXCSR ADRS. * FREQS. * TELEPHONE * REMARKS 
(CUST ID) *(DEC ID)* RX VECTOR * AVAILABLE * NUMBER * 


PARAARORASASASLALAALALARLSASLARAA RAR ASRARARAARARAARARSAARARAARARAARARARASRASA ASAD SE & | 


* * . * * 
* e © & * 
* 7 + * 
ee He ee I I TIT I KKK REE KKK KKK 
+ * * es * 
* 7 + * 7 
7 + * o 
ee RR TH TOIT TK KKK IKK KEE KKK KKK KKK 
* * a & « 
» * » » * 
* * + * * 
he ee i ie ee ee ee I I TO EKER EEK KEKE KKE KKK 
* * * * * 
7 * % 7 4 
x * + * * 
eR Te eR I I TTI IIIT III EKER KEKE KEKE KK KKK 
* * * 7 
* * * 7 a 
+ * * * » 
he ee Te fic ie ie ee i i i ee I i I RK RE KKK KKK KKK KKK 
* * % * + 
* * + ’ * 
« + % + 
Shee ee ee i ee I II IR RIKER KKK KEK KKKK 
o * » a % 
* + » ry + 
* * * * * 
hee ee TT RR KR EEE EEK KK 
» ® * 7 * 
* * * » 
* % * * e 
SOI III III II IIIS IOIDIOIIIOIOIDIOISIOIOIOIDIIOIOIUIOIOIOISIOIIOIISIUISIOIOIOIOIOIIOI OOOO IO 
» * 7 7 . 
+ * * » ~ 
. * * * + 
he ee ST ee ee ee a i eh i te i i I KKK KR KKK KEKE KK 
> | * 4 * * 
* * > * ¥ 
» * « + o 
hee A i ee eT KERR REE KEKE KEKE KKK KKK 
* * * * * 
» + 7 * a 
7 * * * * 
he RT RR REE KEK KK KEKE EEK KK 
» * 7 ® ’ 
. ¥ * * * 
* © * % » 


Mh ee i a ee i a i i i i a rt RRR TO ROT RR ORR RK KR ER 


a) 


SEQ 0009 


~ s 
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-LIST SEQ,BIN 
:DC11 DIAGNOSTIC PROGRAM (OFF LINE TESTS) 


;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


=PRGO= INPUT-OUTPUT LOGIC TESTS 

;PRG1= TRANSMITTER SCOPE LOOP 

;PRG2=- RECEIVER SCOPE LOOP 

;PRG3- SINGLE CHARACTER MAINTENANCE MODE DATA TEST 
:PRG4—- SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 
;STANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1 ) 


°SR15- HALT ON ERROR 


SCOPE. 
;SR13- INHIBIT PRINTOUT 
>SR12- InasBIT TRACE 
;SR11- INHIBIT ITERATION. 
:SR10—- HALT AT END OF PROGRAM 
:SR9- SELECT ROUTINE. 
:SR8- DISABLE STALL MODE AND RUN FULL SPEED. 
;SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE SELECTED. 
;DATA TEST PARAMETERS 


CHAR LENGTH “ey STOP CODE 


sNOTE 8 0 2 
:NOTE1 7 00 2 
:NOTE2 6 00 2 
:NOTE3 5 00 é 
sNOTE4S 8 01 2 
sNOTES 7 01 2 
s;NOTE6 6 01 2 
sNOTE7 5 01 2 
:NOTE10 8 10 2 
>NOTE11 7 10 2 
:NOTE12 6 10 2 
NOTE13 5 10 2 
sNOTE14 8 11 2 
:NOTE15 7 11 2 
sNOTE16 6 11 2 
NOTE17 5 17 2 
:NOTE20 8 00 1 
:NOTE21 7 00 1 
sNOTE22 6 00 1 
sNOTE23 5 00 1 
sNOTE24 8 01 1 
sNOTE25 7 01 1 
:NOTE26 6 01 1 
:NOTE27 5 01 1 
sNOTE30 8 10 1 
:NOTE31 7 10 1 
sNOTE32 6 10 1 
sNOTE33 5 10 1 
sNOTE34 8 11 1 
sNOTE35 7 11 1 
sNOTE 36 6 11 1 

:NOTE37 5 11 1 


SEQ 0010 
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462 -LIST BIN,SEQ 

465 000000 .=0 

464 000000 000002 +2 ; UNASSIGNED TRAP 

465 000002 000000 HAL [ 

466 000004 000006 MACHER: .+2 ;SP OVERFLOW, BUS ERROR TRAP 

467 000000 HALT 

468 000010 000012 +2 ;RESERVED INSTRUCTION TRAP 

469 000012 HALT 

470 000014 000016 + ; TRACE TRAP 

471 000016 HAL T 

472 000020 000022 +2 ; TRAP TO CALL IOX 

473 000022 2 

474 000024 000026 +2 ;POWER FAIL TRAP 

475 000026 HALT 

476 000030 002112 EMT INT ;EMT TRAP 

477 000032 000340 PRTY7 

478 000034 000036 + 

479 000036 HALT 

480 000040 000042 +2 

481 000042 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

482 000044 000046 Be 

483 6 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
000050 000052 -+2 

485 000052 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

486 000054 000056 +2 

487 000056 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

488 000060 000062 + 

489 000062 000000 HAL T ; TRAPPED TO PREVIOUS ADDRESS. 

490 000064 000066 +2 

491 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

492 000070 000072 -+2 

493 000072 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

494 000074 000076 + 

495 000076 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

496 000100 000102 +2 

497 000102 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

498 0001 000106 + 

499 000106 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

500 000110 000112 *2 

501 000112 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

502 000114 000116 -+2 

503 000116 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

504 000120 000122 .+2 

505 000122 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

506 000124 000126 +2 

507 000126 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

508 0001350 000132 se 

509 000132 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

510 000134 000136 -t+2 

511 000136 HALT ; TRAPPED TO PREVIOUS ADDRESS. . 

512 000140 000142 .+2 

513 000142 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

514 000144 000146 -+2 

515 000146 0 HALT ; TRAPPED TO PREVIOUS ADDRESS. 

516 000150 000152 +2 

517 000152 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
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000156 
000000 
000162 
000000 
000166 
000000 
000172 
000000 
000176 
000000 
000202 
000000 
000206 
000000 
000212 
000000 
000216 
000000 
000222 
000000 
000226 
000000 
000232 
000000 
000236 
000006 
000242 
000000 
000246 
000000 
000252 
000000 
000256 
000000 
000262 
000000 
000266 
000000 
000272 
000000 
000276 
000000 
000302 
000000 
000306 
000000 
000312 
000000 
000316 
000000 
000322 
000000 
000326 
000000 
000332 
000000 
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; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 


PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 
PREVIOUS 


ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 


SEQ 0012 
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STATEMENTS 
SR=177570 
CC=177776 
PSW=177776 
SPBOT=1076 
NOP=240 


OPEN=0 
MANUAL =B1T15 
BIT15=100000 


B 
POPSP=5726 


TYPE=EMT+0 
TYPES=EMT +1 
STALL=EMT+2 


; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 
; TRAPPED TO PREVIOUS 


;POP THE STACK. SAME AS TST (6)+ 
;POP STACK TWICE. SAME AS CMP (6)+,(6)+ 


ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 
ADDRESS. 


sPRIORITY LEVEL DEFINITIONS 


SEQ 0013 
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ERROR=EMT +3 
DATCHK=EMT +4 
CHAL T=EMT+5 
STRXV=EMT +6 
STTXV=EMT +7 
EMAL F=EMT+10 
SRESET=EMT+11 
SCOPE=EMT+12 
SAVREG=EMT +13 
RSTREG=EMT+14 
ERROR1=EMT+15 
DELAY=EMT+16 
BELL=007 
ATLAST==-1 


SEQ 0014 
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EYSRRVSAENOK 


001136 


001562 


EMTTAB: 
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;GO TO START OF PROGRAM. 


sRECEIVER CSR 

;RECEIVER BUFFER 

; TRANSMITTER CSR 

; TRANSMITTER BUFFER 
sRECEIVER VECTOR 

sRECEIVER PRIORITY LEVEL 

; TRANSMITTER VECTOR 

; TRANSMITTER PRIORITY LEVEL 


:LSR CSR 
;LSR BUFFER 
sLSP CSR 
;LSP BUFFER 


:LSR INTERRUPT VECTOR 

;LSR PRIORITY LEVEL 

;LSP INTERRUPT VECTOR 

;LSP PRIORITY LEVEL 

; CONTAINS CURRENT PROGRAM4 

; CURRENT PROGRAM START ADDRESS. 
;CONTAINS ADDR OF CURRENT TEST. 
;CONTAINS CURRENT TEST @. 
;CONTAINS ADDR OF NEXT TEST. 
;CONTAINS CURRENT ITERATION COUNT 
;CONTAINS CURRENT SCOPE POINTER. 
;PRGO START ADDRESS 


sPRG1 START 
sPRG2 START 
:PRG3 START 
:PRG4 START 
:POINTER TO 
:POINTER TO 
sPOINTER TO 
:POINTER TO 


;POINTER TO 


TYPEOUT ROUTINE 

CHAINED MESSAGES ROUTINE 
RANDOM STALL ROUTINE 
ERROR ROUTINE 


ERROR HALT ROUTINE. 


SEQ 0015 
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000000 
000000 


000002 


17-MAR-78 
13:04 
002000 177570 
177570 


001230 001232 


002300 


003300 
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RCNT: OPEN 
CRBUF OPEN 
CRBUFA: OPEN 
CARMSK: OPEN 
CHR1: OPEN 
CHR2: OPEN 
CHR3: OPEN 
ERCTR: OPEN 
CTRA: OPEN 
CTRB: OPEN 
CTRC: OPEN 
CTRD: OPEN 
TXCSRT: OPEN 
RXCSRT: OPEN 
RXBUFT: OPEN 
TEMP: OPEN 
SRT: OPEN 
STLMSK: 177740 
SETSR: TYPE 
ASETSR 
HALT 
RTS %7 
INCRTN: TYPE 
AINCRT 
HALT 
RTS %7 
PRGEND: TYPE 
APGEND 
BIT #BIT10,SR 
BEQ +4 
HALT 
RTS %7 


; CONDITIONAL ERROR HALT ROUTINE. 
EHLT: TST SR 
BPL EHLTA 
HALT 
EHLTA: RTI 
;DATA CHECK ROUTINE. 
DTCHK: CMP CRBUF , CRBUFA 


DT.CHKA 
%5 ,0ACNV 


%5,0ACNV 


3 

ERROR1 

ERDAT 
DTCHKA: RTI 


SEQ 0016 


;TYPE SELECT OPTION MESSAGE. 


mamas 
;TYPE INCORRECT ROUTINE SELECTED. 
; COMMON HALT. 

EXIT 

: TYPE PROGRAM END. 


;TEST END OF PROGRAM HALT OPTION 
:BRANCH IF NOT SELECTED 


EXIT. 


;CHECK FOR HALT ON ERROR. 
BRANCH IF NO HALT DESIRED. 


HALT 
: IN DATA LIGHTS. 


; COMPARE EXPECTED AND RECEIVED 
;CHARS. BRANCH IF SAME. 
:GO TO yi TO ASCII CONVERT. 


SOURCE A 

:DESTINATION ADDR. 

:MOF DIGITS TO CONVERT 

:GO TO OCTAL TO ASCII CONVERT. 
; SOURCE ADDR 


:DESTINATION ADDR. 
;AOF DIGITS TO CONVERT. 


> EXIT. 
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177777 
000240 
001560 


003300 


003300 


001560 


001542 
001544 


001542 
001544 
001560 
177570 


001556 


ERR: 


ERR1: 


ERRA: 


ERRB: 
ERRC: 


ERRD: 
ERRE: 
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#-1,ERRB 
#240, ERRBt2 
ERRE 


ERRA 
@%6,ERRB 
@ERRB,.ERRB 
#~-1 ,ERRB+2 


%5. OACNV 
%5,0ACNV 


%5 ,OACNV 


ERRE ,@%6 


;SET UP ONE MESSAGE CALL. 


;DEVELOP ADDT*L MESSAGE ADDR. 
;STORE AT ERRB. 


; INHIBIT ERROR PRINT? 
;BRANCH TO INHIBIT PRINT. 
;DEVELOP CALLING ADDR. 


:GO TO OCTAL TO ASCII CONVERT. 


;SQURCE ADDR. 
:DESTINATION ADDR. 
sMOF DIGITS TO CONVERT 


:GO TO OCTAL TO ASCII CONVERT. 


; SOURCE ADDR. 
:DESTINATION ADDR. 
:MOF DIGITS TO CONV 


VERT 
=GO TO OCTAL TO ASCII CONVERT. 


; SOURCE ADDR 
=DESTINATION ADDR. 
=m0F 0 DIGITS TO CONVERT. 


; ERROR HEADER, 
:ADDT'L ERROR MESSAGE IF ANY. 


;GO ERR HALT IF DESIRED. 
EXIT. 


SEQ 0017 


cove 
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002042 
001000 


177230 
177570 
177600 
001146 


177204 
177777 


001302 
040000 
001154 
004000 
001152 


001000 


177777 


001144 
177777 


000004 


000024 
000026 


001150 
000004 


177570 


001150 


177570 


177570 


177570 
001150 


001154 
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START: JSR 


GETRDY: MOV 
GTRDYX: MOV 


GTRDYA: JSR 
GTRDYB: BIT 


GTRDYC: MOV 


GTRDYD: CMP 
CHAINN: BIT 
CHNAB: MOV 
CHNA: BIT 
CHNAA: 


CHNB: BIT 


BR 
FORWD: MOV 


FORWDA: MOV 
RTS 
FORWDB: MOV 


PC ,DCACHE 
#SPBOT , %6 


PSW 

#6 ,MACHER 
RTNNO 

SR, %0 
#177770,%0 
%0,,PRGNUM 
%0 
APFAIL,24 


#PRTY7,26 
@PRGTAB (0) 


KSTART ,NXTST 


#6 ,MACHER 
PSwW 
#SPBOT ,%6 


%7,FORWD 
#BIT9,SR 
GTRDYC 
@CURTST 
CHNB 


SR, %0 
#177600 ,%0 
RTNNO, %0 
GTRDYD 
@CURTST 
#-1 ,NXTST 
GTRDYA 

m7, INCRIN 
GETRDY 
#B1T14,SR 


CHNA 
SCOPTR,@%6 
#B1T11,SR 
CHNAA 
ICTR 

HNAB 


#BIT9,SR 
GETRDY 
4-1 ,NXTST 
GTRDYX 
%7,PRGEND 


NXTST,2%5 
(5)+,RTNNO 
(5)+,NXTST 
(5)+, ICTR 
(5)+,SCOPTR 
%5,CURTST 


47 
#-1,SCOPTR 


;DISABLE CACHE ;;++C 
:SET BOTTOM OF SP STACK. 


;(SR) TO RO 
sLIMIT (SR) TO BITS 3-0 
;SAVE PROGRAM # 


;GO TO SELECTED PROGRAM. 
:ADDR OF 1ST 4 TO NXTST 
sRESET MACHER T 


;SET BOTTOM OF STACK. 

; ISSUE RESET. 

;ROLL FORWARD TO ‘NEXT** ROUTINE. 
;CHECK SELECT ROUTINE SWITCH 


;BRANCH IF SELECT ROUTINE SWITCH IS SET. 


;GO RUN CURRENT ROUTINE. 

"NO GO. MANUAL RTN BYPASSED. 
;(SR) TO RO 

:MASK UNDESIRED BITS 
= COMPARE RTNNO TO (RO) 
;BRANCH IF ROUTINE NOT FOUND YET. 
:GO RUN ROUTINE. 
;NO. CHECK FOR LAST ROUTINE. 
;BRANCH IF NOT LAST ROUTINE. 
:YES. INCORRECT ROUTINE SELECTED. 
;START OVER. 

;CHECK FOR SCOPE OPTION. 


BRANCH IF SCOPE Sw NOT SET. 


;SET UP TO RETURN TO ROUTINE. 


;RETURN TO ROUTINE. 


;TEST INHIBIT ITERATION SWITCH 
:BRANCH IF INHIBIT ITERATION SW SET. 
;DECREMENT ITERATION COUNT. 

:BRANCH IF COUNT NOT 0. 


:POP STACK TWICE 


;CHECK SELECT ROUTINE SWITCH 
BRANCH IF SELECT RTN SW SET 
;LAST TEST? 

:BRANCH IF NOT LAST TEST. 


:PROGRAM END. 


sADDR OF NEXT ROUTINE TO R5. 

sGET NEXT ROUTINE NUMBER. 

;GET ADDR OF NEXT ‘NEXT’’ ROUTINE. 
;GET ITERATION COUNT. 

:GET SCOPE LOOP ENTRY POINTER 

:ADDR OF NOW CURRENT TEST TO CURTST. 


:EXIT FORWD SUBROUTINE 
FORCE ‘NO SCOPE*’ 


SEQ 0018 


co ve 
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839 002102 012737 000001 001152 MOV #1,ICTR ;FORCE I COUNT OF 1 
840 002110 000766 BR FORWDA 
841 002112 011646 EMTINT: MOV a%6,-(6) ;GET SAVED PC. 
842 002114 162716 000002 SUB #2,0%6 ;DECREMENT PC BY 2. 
843 002120 017616 000000 MOV @(6) ,a%6 
844 002124 006316 EMTA: ASL a%6 ;EMT ARG X 2. 
845 002126 042716 177001 BIC #177001 ,a%6 sREMOVE 7 MSB. 
846 002132 062716 001170 ADD #EMTTAB,@%6 ;FORM EMT RIN ADDR. 
847 002136 017616 000000 MOV a(6) ,%6 
tr: 002142 000136 JMP a(6)+ :GO TO EMT ROUTINE. 
850 ; SUBROUTINE TO ee FOR_AN 11/70 CENTRAL PROCESSOR so tel 
851 IF IT IS AN 11/70 CPU, CACHE WILL BE DISABLED 
aoe : IF NOT AN 1770 CPU, NO ACTION TAKEN 
854 ;CALLED BY JSR PC ,DCACHE 
855 : NO ARGUEMENTS PASSED 
% 3 
858 002144 013746 000004 DCACHE: MOV a4 ,— (SP) ;SAVE TRAP INFO 
859 002150 012737 002172 000004 MOV #1$,a044 ;SETUP FOR TIMEPUT 
860 002156 005737 177746 TST a4177746 >TEST FOR CACHE 
861 002162 012737 000014 177746 MOV #14,04177746 sDISABLE CACHE 
862 002170 000401 BR 2$ sEXIT,CACHE DISABLED. 
&63 002172 022626 1$: CMP (SP)+, (SP) + ;CLEAN UP STACK 
&- 002174 012637 000004 2$: MOV (SP) +,a44 
na 002200 000207 RTS PC ; RETURN 
867 ;SAVE REGS 0 TO 4 SUBROUTINE. 
868 002202 012637 002236 SAVRG: MOV (6)+,SVRPC :SAVE PC AND PSwW. 
869 002206 012637 002240 MOV (6)+,SVRPSW 
870 002212 010446 MOV 44 ,-(6) ;SAVE REGS 0 - 4 
871 002214 010346 MOV %35,-(6) :IN STACK. 
872 002216 010246 MOV %2,-(6) 
873 010146 MOV %1,-(6) 
874 002222 010046 MOV %0,-(6) 
875 002224 013746 002240 MOV SVRPSW,-(6) ;RESTORE PC AND PSw. 
876 002230 013746 002236 MOV SVRPC ,-(6) 
877 002234 000002 RT] sEXIT. 
878 002236 000000 SVRPC: OPEN 
879 002240 000000 SVRPSW: OPEN 
880 ;RESTORE REGS 0 TO 4 SUBROUTINE. 
881 002242 012637 002276 RSTRG: MOV (6)+,RSTPC ;SAVE PC AND PSw. 
882 002246 012637 002300 MOV (6)+,RSTPSW 
8835 002252 012600 MOV (6)+,20 RESTORE REGS 0 - 4 
884 002254 012601 MOV (6)+,21 >FROM STACK. 
885 002256 012602 MOV (6)+,%2 
012603 MOV (6)+,%3 
al 002262 012604 MOV (6)+,%4 
889 002264 013746 002300 MOV RSTPSW,-(6) RESTORE PC AND PSw. 
890 002270 013746 002276 MOV RSTPC,-(6) 
891 002274 000002 RTI sEXIT 
892 002276 000000 RSTPC: OPEN 
893 002300 000000 RSTPSW: 


OPEN 
894 ;ROUTINE TO SET RECEIVER INTERRUPT VECTOR AND PRIORITY 
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OCO000 002322 STLSRV: MOV a(6) ,STPRA+2 sMOVE VECTOR ADDR TO STPRA+2 
000002 ADD #2, a6 ;SET UP EXIT 
001110 MOV RXVTR, a1 
000 STPRA: MOV #OPEN, (1) + ;SET VECTOR ADDRESS 
001112 art RXLVL,(1)+ oo 
sROUTINE TO SET TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 
00 002352 STLSPV: MOV a(6) ,STPPA+2 sMOVE VECTOR ADDR TO STPPA+2 
000002 ADD #2 ,a%6 ;SET UP EXIT 
001114 MOV TXVTR,%1 
000000 STPPA: MOV #OPEN, (1)+ :;SET VECTOR ADDRESS. 
001116 MOV TXLVL,(1)+ SET PRIORITY 
RTI sEXIT. 
;ROUTINE TO ISSUE RESET. 
052525 SRSETT: MOV #52525,%0 :DATA TO RO. 
C %0 : COMPLEMENT (RO). 
002364 MOV Z0, SRSETT+2 :(RO) TO SRSETT+2. 
RESET : ISSUE RESET. (RO) IS 
002144 JSR PC ,DCACHE = DISABLE CACHE. ;;++C 
RTI sDISPLAYED. EXIT. 
;RANDOM NUMBER GENERATOR. ROUTINE EXITS WITH NUMBER IN REGISTER QO. 
002452 RNGEN: MOV RP1,%0 
ROL 
ROL %0 
002454 ADD RP2,2%0 
002452 MOV %0,RP1 
ROL Z0 
ROL ae 
002454 ADD RP2,%0 
ROL 0 
ROL %0 
002454 MOV %0,RP2 
002452 MOV RP1,Z%0 
RTS %7 sEXIT. NUMBER IN RO 
RP1: 1233 
RP2: 7622 
Oe ama TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
MOV a%6,%0 >GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 
000002 ADD #e, a%6 sSET UP EXIT. 
MOV azo, x0 “ADDRESS OF MESSAGE TO RO. 
002576 TYPA: MOVB (0) +, TYPDAT ;GET CHARACTER 
000100 002576 CMPB #100, TYPDAT >CHECK FOR’ fs = Sana 
BNE TYPC = BRANCH IF T’?"*. 
RT] ; TERMINATOR OMAR. DONE. EXIT. 
0000465 002576 TYPC: CMPB #45, TYPDAT > CHECK FOR’ '%**. 
BEQ TYPF ; BRANC H IF'%' 
000043 002576 CMPB #43, TYPDAT NOT’ > CHECK FOR’ ‘#**. 
BEQ TY YPG BRANCH -_— 
002532 _ A ; TYPE CHAR IN TYPDAT 
002576 176366 TYPD: MOVB TYPDAT.. aTPB OUTPUT CHARACTER TO PRINTER 
176360 TSTB aTPSs ;WAIT FOR DONE FLAG. 
BPL 74 
RTS %7 sEXIT 
000015 002576 TYPF: MOVB #15,TYPDAT s;MOVE CARRIAGE RETURN CODE TO TYPDAT 


SEQ 0020 
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951 002556 004737 002532 JSR %7,TYPD ;GO TYPE CHAR 

952 002562 112737 000012 002576 TYPG: MOVB #12,TYFDAT :MOVE LF CODE TO TYPDAT. 

953 002570 004737 002532 JSR %47,TYPD ;GO TYPE CHAR 

954 002574 000734 BR TYPA 

955 002576 000000 TYPDAT: OPEN 

956 ; SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 

957 002600 011600 TYPS: MOV @%6,%0 ;GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 

958 002602 062716 000002 ADD #2, a%6 :UPDATE TO NEXT MESSAGE ADDRESS 

959 002606 011037 002626 MOV a%0,TYPSB :ADDRESS OF MESSAGE TO TYPSB 

960 002612 022737 177777 002626 CMP #-1,TYPSB ;CHECK FOR TERMINATOR 

961 002620 001001 BNE TYPSA :BRANCH IF NOT TERMINATOR. 

962 002622 000002 RTI ; TERMINATOR, EXIT 

963 002624 104000 TYPSA: TYPE ;CALL ON TYP SUB TO TYPE MESSAGE 

964 002626 000000 TYPSB: OPEN sADDRESS OF MESSAGE GOES HERE 

ar 002630 000763 BR TYPS :GO PROCESS NEXT MESSAGE 

967 002632 9012701 000300 OVRLAY: MOV #300,%1 :GET DC11 VECTOR BASE ADDRESS 

968 002636 012702 000302 MOV #302 ,%2 ;GET NEXT ADDRESS 

969 002642 010221 OVRLYA: MOV x%2,(1)+ ;LOAD VECTOR WITH ADDRESS OF NEXT ADDRESS 

970 002644 005021 CLR (1)+ ;PUT A HALT IN THE NEXT ADDRESS 

971 002646 020237 001000 CMP %2,1000 sALL VECTORS BEEN LOADED 

972 002652 001403 BEQ OVRL YB 

973 002654 062702 000004 ADD #4 he ;GET NEXT VECTOR ADDRESS 

974 002660 000770 BR OVRLYA 

ane 002662 000207 OVRLYB: RTS 7 sEXIT 

977 ; SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 

978 002664 011637 002730 DLY: MOV @%6,DLCNT ;GET DELAY COUNT ADDRESS. 

979 002670 062716 000002 ADD #2,9%6 ;SET UP EXIT ADDRESS 

980 002674 017746 000030 MOV @DLCNT ,-(6) ;DELAY COUNT TO STACK 

981 002700 001411 BEQ DLYC 

982 002702 005037 177776 CLR PSW ;SET PRIORITY 0 

983 002706 012746 000554 DLYA: MOV #554 ,-(6) ;1 MSEC COUNT TO STACK 

984 002712 005316 DLYB: DEC a%6 ;DECREMENT 1 MSEC COUNT 

985 002714 001376 BNE DLYB BRANCH IF NOT 0. 

986 002716 005726 POPSP ;ZERO. UNCOVER MSECS. COUNT. 

987 002720 005316 DEC a%6 sDECREMENT IT 

988 002722 001371 BNE DLYA :BR IF NOT DONE DELAYING 

989 002724 005726 DLYC: POPSP ; DONE 

990 002726 000002 RTI EXIT. 

991 002730 000000 DLCNT: OPEN ;CONTAINS MILLISECONDS COUNT ADDRESS. 

We ; SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL 

993 | ;DETERMINED BY CONTENTS OF LOC STLMSK. 

994 002732 004737 002404 STAL: JSR %7,RNGEN :GO GET RANDOM NUMBER. 

995 002736 043700 001270 BIC STLMSK , %0 ;# IN RO. APPLY STALL MASK. 

996 002742 001404 BEQ STALB ;BRANCH IF RESULT IS 0. 

997 002744 010037 002752 MOV %0,STALA 

998 002750 104016 DELAY ; DELAY 

999 002752 000000 : STALA: OPEN ;DELAY COUNT 

1000 002754 000002 STALB: RTI :DONE. EXIT. 

1001 ; SUBROUTINE TO GENERATE RANDOM CHARACTER COUNT 

1002 002756 004737 002404 GRCNT: JSR %7,RNGEN ;GET RANDOM NUMBER 

1003 002762 043700 002776 BIC RMSK, %0 :APPLY MASK 

1004 002766 001773 BEQ NT ;TRY AGAIN ad. RESULT 0 


1005 002770 010037 003000 MOV £0. RNCNT :COUNT TO R 
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015160 
001110 


001264 
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177777 
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003154 
003160 


003150 


003154 


003154 
003152 
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RCMSK: OPEN 
RNCNT: OPEN 
; SUBROUTINE TO SELECT LINE AND 
LINSEL: TYPE 
LDLINE 
HALT 


MOV SR,%1 
BIC #177407 ,%1 
EMP 


a1 
MOV VECTAB(1) ,%1 
MOV %1,RXVTR 


CMP (1)+,(1)+ 

MOV %1,TXVTR 

ASR TEMP 

ASR TEMP 

ASR TEMP 

JSR 5 ,OACNV 
MP 

SEL INE 

TYPE 

«te 


INBIN 
JSR 15 ,BMOVE 


RTS 27 


; 

BIC #177400,PT1 
PT1,PTO 
MOV PT1,2%0 
RTS 47 

GTBINP: MOV PTOP,PTIP 


;RANDOM CHARACTER MASK. 
;RANDOM CHARACTER COUNT. 


:POSITION SELECTED LINE 


“GET LINE VECTOR ADDRESS 
: LOAD INTO PROGRAM RXVTR 


sADD +4 
;LOAD INTO PROGRAM TXVTR 


; TYPE LINE # 


5 
Tong og TO INITIALIZE BINARY COUNT PATTERNS 
MOV #-1,RIND 


;SET ALL VARIABLES 
:TO MINUS 1. 


sEXIT 


P : N 
;SPECIAL BINARY fre gel PATTERN SUBROUTINE. EXITS WITH BIN CHAR IN RO 
GTBIN: MO PTO,PT1 


;PREVIOUS BIN CHAR TO PT1 


;MASK TO 8 BITS 
;SAVE BIN CHAR _ IN PTO 
>BIN CHAR TO RO. 


sEXIT 
=PREVIOUS BIN CHAR TO PT1P 


SEQ 0022 
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1063 003240 005137 003162 COM PT1P 
1064 003244 005137 003156 COM PIND 
1065 003250 001002 BNE . +6 
1066 003252 005237 003762 INC PT1P 
1067 003256 042737 177400 003162 BIC #177400,PT1P ;MASK TO 8 BITS. 
1068 003264 013737 003162 003160 MOV PTIP,PTOP ;SAVE BIN CHAR IN PTOP. 
1069 003272 013701 003162 MOV PT1IP,%1 :BIN CHAR TO R1. 
1070 003276 000207 RTS 47 EXIT. 
1071 ;OCTAL TO ASCII CONVERT ROUTINE 
1072 003300 013537 003360 OACNV: MOV @(5) +, OACNVX 3GET OCTAL VALUE. 
1073 003304 012501 MOV (5)+,%1 ;GET DESTINATION ADDR. 
1074 0033506 012502 MOV (5)+,%2 ;GET CONVERT COUNT. 
1075 003310 060201 ADD %2,%1 :DEVELOP ADDR TO STORE 1ST CHAR. 
1076 003312 013703 003360 OACNVA: MOV OACNVX , %3 
1077 003316 042703 177770 BIC #177770,%3 ; ISOLATE LEAST SIGNIFICANT DIGIT. 
1078 003322 062703 000060 ADD #60 ,%3 sCONVERT DIGIT TO ASCII. 
1079 003326 110341 , MOVB %3.-(1) sSTORE ASCII CHARACTER. 
1080 003330 042737 000007 003360 BIC #7 ,OACNVX 
1081 003336 006037 003360 ROR OACNVX 
1 003342 006037 003360 ROR OACNVX 
1083 003346 006037 00 ROR OACNVX 
1084 003352 005302 DEC Ke ;DONE ALL DIGITS? 
1085 003354 001356 BNE OACNVA ;BRANCH IF NOT DONE. 
1086 003356 000205 RTS z5 :DONE. EXIT. 
1087 003360 000000 OACNVX: OPEN 
1088 ; SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES. 
1089 003362 104013 BMOVE: SAVREG ; SAVE REGS. 
1090 003364 012501 MOV (5)+,%1 ; GET’ FROM’ ‘ADDRESS 
1091 003366 012502 MOV (5)+,%2 ; GET’ ‘TO’ ADDRESS 
1092 003370 012503 MOV (5)+,%3 :GET COUNT 
1093 003372 112122 BMOVA: MOVB (1)+,(2)+ sMOVE BYTE 
1094 003374 005303 DEC z5 ;DECREMENT COUNT 
1095 003376 001375 BNE BMOVA :BRANCH IF NOT DONE. 
003400 104014 RSTREG sRESTORE REGS. 
1097 003402 000205 RTS z5 sDONE EXIT 
1098 ;BINARY TO DECIMAL ASCII CONVERT SUBROUTINE. 
1099 003404 012700 003524 BDCNV: MOV #DECVAL ,%0 ;SET UP ADDR TO STORE DECIMAL ASCII IN RO 
1100 003410 013501 MOV a(5)+,21 :BINARY VALUE TO R1. 
1101 003412 012702 003512 MOV #ADTENP , %2 :ADDR OF TEN POWER STRING TO R2. 
1102 003416 012737 000005 003504 MOV #5,CNVCTR ;SET UP FOR 5 POWER CONVERSIONS. 
1103 003424 012237 003510 BDCNVA: MOV (2)+, TENPWR :MOVE POWER OF TEN VALUE TO TENPWR. 
1104 0034350 004737 003444 JSR %7.SUBTEN soy s CONVERSION 
1105 003434 005337 003504 DEC CNVCTR ONE 5 CONVERSIONS? 
1106 003440 001371 BNE BDCNVA ‘BRANCH IF NOT YET 5. 
1107 003442 000205 RTS 25 YES, EXIT. 
1108 003444 005037 003506 SUBTEN: CLR DIGIT =CLEAR DIGIT 
1109 003450 163701 003510 SUBTNA: SUB TENPWR , %1 : SUBTRACT TEN POWER FROM BINARY VALUE. 
1110 003454 103403 BCS SUBTNB BRANCH IF UNSUCCESSFUL SUBTRACTION. 
1111 003456 005237 003506 INC DIGIT 
1112 003462 000772 BR SUBTNA 
1113 003464 063701 003510 SUBTNB: ADD TENPWR ,%1 ;RESTORE SUBTRACTED VALUE. 
1114 003470 062737 000060 003506 ADD #60,DIGIT ;CONVERT (DIGIT) TO ASCII 
1115 003476 113720 003506 MOVB DIGIT, (0)+ :MOVE ASCII CHAR TO DECVAL FIELD. 
1116 003502 000207 RTS %7 EXIT. 
1117 003504 000000 CNVCTR: OPEN 
1118 003506 000000 DIGIT: OPEN 
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000 
015311 
0000 


37 
177777 


000004 
000144 
175314 


003232 


175260 
175254 
001246 


003654 


002144 
001076 


001140 
003644 


014772 
003714 


003756 


003002 
001272 
001646 
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040 
040 


175330 
175326 
001246 


001232 


001230 


000024 


000024 


001142 


0S PAGE 25 
TENPWR: OPEN 
ADTENP: 10000 
1000. 
100. 
-. 
DECVAL: .BYTE 040,040,040,040,040,040 
DATTST: MOV (5)+,SRT 


DATAA: TSTB aTXCSR 
BPL 74 
JSR 7,GTBINP 
MOVB %1,CRBUFA 
BIC CARMSK , CRBUFA 
MOVB %1,aTXBUF 
TSTB @RXCSR 
BPL 74 
MOVB @RXBUF , CRBUF 
DAT CHK 
DEC CTRA 
BNE DATAA 
TST (6) + 
SCOPE 
PFAIL: MOV APWRUP , 24 
HALT 
PWRUP: RESET 
JSR PC ,DCACHE 
MOV #SPBOT ,%6 
ERROR 
RESTART :MOV PRGNUM, 20 
ASL Z0 
MOV #PFAIL,24 
JSR 7,STPARB 
JMP @RSTART (0) 
RSTART: PRGOA 
PRGIA 
PRG2A 
PRG3A 
PRG4A 
;PRGO - INPUT-OUTPUT LOGIC TESTS 
PRGO: MOV #ATO,KSTART 
TYPE 
POTIT 
HALT 
JSR §,LINSEL 
JSR 7,SETSR 
PRGOA: 


JSR 7,STPARB 

BIC #B1TO,aRXCSR 
BIS #BIT2,aTXCSR 
MOV #100. ,CTRA 


ss GETRDY 


:GET PARAMETERS 
;LOAD PARAMETER 
s;CLEAR DATA TERM. READY 
SET MAINTENANCE BIT 
;GET CHARACTER COUNT 
sWAIT FOR 
sREADY FLAG 
;GET CHARACTER 
s;MOVE CHARACTER 
s;MASK OFF NON TRANSMITTED BITS 
; TRANSMIT CHARACTER 
;WAIT FOR 


;DONE FLAG 

;GET RECEIVED CHARACTER 
;CHK DATA 

;DECREMENT CHARACTER COUNT 
;POP STACK 


DISABLE CACHE. ;;++C 


;GET PROGRAM NUMBER 


;RELOAD POWER FAIL VECTOR 
;RELOAD LINE PARAMETERS 
:GO RESTART SELECTED PROGRAM 


;PROGRAM 0 RESTART ADDRESS 
;PROGRAM 1 RESTART ADDRESS 
PROGRAM 2 RESTART ADDRESS 


*PROGRAM 3 RESTART ADDRESS 
“PROGRAM 4 RESTART ADDRESS 


;TYPE TITLE AND INSTRUCTIONS 


:GO GET LINE # FROM USER 
;GET STARTED. 


co ve 


«MAIN. MACY11 30A(1052) 17-MAR-78 13:05 PAGE 26 SEQ 0025 
CZDCAC.P11 17-MAR-78 13:04 
1175 DOIG III IIIS ISIS IIUIOIOIIIIOIIDIOIIOIUIOIUIIOIOIUIOIOIIIOIUIIOIOIIOIIOIOIO 
1176 003756 000000 ATO: 0 ;TEST NUMBER 0 * 
1177 003760 004010 AT1 = ADDRESS OF NEXT TEST * 
1178 003762 001750 1000. ;TEST ITERATION COUNT * 
1179 003764 003766 AAA = SCOPE ENTRY POINT * 
1180 5 A BR A BB BB Re A Re BB BA BB TI ITT TTT TOTTORI TO TTR IK 
1181 “TEST ABILITY TO REFERENCE RECEIVER CSR WITHOUT TRAPPING 
1182 003766 012737 004002 000004 AAA: MOV #AAE ,MACHER ;SET UP MACHINE ERROR TRAP. 
1183 003774 005777 175100 TST @RXCSR sREFERENCE RXCSR 
1184 004000 104012 AAB: SCOPE > 0K IF NO TRAP. SCOPE 
1185 004002 022626 AAE POPSP2 
1186 004004 104003 ERROR ; TRAPPED WHEN REFERENCING RXCSR. 
1187 004006 000774 
1188 ee Re ee ee Re A A RB BT BI RB BB I TH BICC TOTTI OTE TTT TOTTI TK 
1189 004010 000001 AT1: 1 ;TEST NUMBER 1 * 
1190 004012 004042 AT2 sADDRESS OF NEXT TEST 
1191 004014 001750 1900. ;TEST ITERATION COUNT * 
1192 004016 004020 ABA ;SCOPE ENTRY POINT * 
1193 SR TT ERE EERE REE EEE ERE ERE KEE ERE EEK EK EK EK 
1194 = TEST ABILITY TO REFERENCE RECEIVER BUFFER WITHOUT TRAPPING 
1195 004020 012737 004034 000004 ABA: MOV #ABE .MACHER 7SET UP MACHINE ERROR TRAP. 
1196 004026 005777 175050 TST @RXBUF = REFERENCE RXBUF 
1197 004032 104012 ABB: SCOPE > OK IF NO TRAP SCOPE 
1198 004034 022626 ABE : POPSP2 
1199 004036 104003 ERROR ; TRAPPED WHEN REFERENCING RXBUF 
‘Se 004040 000774 BR ABB 
1202 Be ee He He I REE REECE EKEKEKRKKEKKKKKK 
1203 004042 000002 AT2: 2 ;TEST NUMBER 2 * 
1 004044 004074 AT3 ;ADDRESS OF NEXT TEST * 
1205 004046 001750 1000. ;TEST ITERATION COUNT * 
12 004050 004052 ACA ;SCOPE ENTRY POINT * 
1207 000000 . TX=TX+1 
1208 SRR ERE EERE REE REE REE EEE RR EK KI 
1209 ;TEST ABILITY TO REFERENCE TRANSMITTER CSR WITHOUT TRAPPING. 
1210 004066 000004 ACA MOV HACE ,MACHER 7;SET UP MACHINE ERROR TRAP. 
1211 175020 TST aTXCSR “REFERENCE TXCSR 
1212 ACB: SCOPE > SCOPE 
1213 ACE: POPSP2 
1214 ERROR ; TRAPPED WHEN REFERENCING TXCSR 
HE Pichon 
1217 SERRE EEE EERE EERE REAR REEREREE EERE 
1218 ATS: 3 sTEST NUMBER 3 * 
1219 AT4 ;ADDRESS OF NEXT TEST * 
1220 } oa ;TEST ITERATION COUNT * 
1221 :SCOPE ENTRY POINT * 
1222 cntehdiaieeee nadine sidaattiiaiabiemnbeltateata nenamennnnanionseliieteailaihanaaih 
1223 ;TEST ABILITY TO REFERENCE TRANSMITTER BUFFER WITHOUT TRAPPING 
1224 04 004120 000004 ADA MOV MADE ,MACHER 7SET UP MACHINE ERROR TRAP. 
1225 12 174770 TST aT XBUF ;REFERENCE TX BUF. 
1226 16 ADB: SCOPE - SCOPE 
1227 20 ADE : POPSP2 
1228 22 ERROR ; TRAPPED WHEN REFERENCING TXBUF 
1229 24 BR ADB 
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1231 IOI IOISIIOIUIOIIIISIOIIOIDI IOUS OID IOIOIIDIOOII IOI IG I I OTE 
1232 004126 000004 AT4: 4 ; TEST NUMBER 4 * 
1233 004130 004226 AT5 sADDRESS OF NEXT TEST * 
1234 004132 000144 100. ;TEST ITERATION COUNT * 
1235 004134 0041356 AEA ;SCOPE ENTRY POINT * 
1236 DARIO UIE IIIS ISIC III ISIC IOI IUIIUISIUI IOI IOI IOUT TO IOI IK 
1237 :TEST THAT TXCSR BITO CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1238 004150 032777 000001 174740 AEA BIT #B1TO,aTXCSR :SEE IF TXCSR BITO IS CLEAR. 
1239 004144 001402 BEQ AEB :BRANCH IF BIT IS CLEAR. 
1240 004146 104003 ERROR ;RESET DID NOT CLEAR TXCSR BITO 
1241 004150 000421 BR AED 
1242 004152 052777 000001 174724 AEB: BIS #BITO,aTXCSR ;SET TXCSR BITO. 
1243 004160 032777 000001 174716 BIT #B1T0,aTXCSR sSEE IF BIT IS SET. 
1244 004166 001902 BNE AEC :BRANCH IF BIT IS SET. 
1245 004170 104003 ERROR ;TXCSR BITO FAILED TO SET. 
1246 004172 000410 BR AED 
1247 004174 042777 000001 174702 AEC: BIC #BITO,aTXCSR ;CLEAR TXCSR BITO 
1248 004202 032777 000001 174674 BIT #BITO,@TXCSR sSEE IF BIT IS CLEAR. 
1249 004210 001401 BEQ AED 
1250 004212 104003 ERROR ; TXCSR by FAILED TO CLEAR. 
1251 004214 052777 000001 174662 AED: BIS #B1T0,aTXCSR SET TXCSR BITO. 
1252 004222 104011 SRESET ; ISSUE RESET. TO CLEAR BIT. 
1253 004224 104012 SCOPE : SCOPE 
1254 DRIES IOI ICID III IOI III UII IOI IIIT ITI TOI TTI NOT IOR II 
1255 004226 000005 ATS: = 5 :TEST NUMBER 5 . 
1256 004230 004524 AT6 SADDRESS OF NEXT TEST * 
1257 004232 000144 100. ;TEST ITERATION COUNT * 
1258 004234 004236 AFA :SCOPE ENTRY POINT * 
1259 SII IOI UICIDIOIIISIIIIOIIUIIIOIDIIOI III UII II IOI III IOI IOI IOI 
1260 ;TEST THAT TXCSR BIT1 (CLEAR TO SEND) CAN BE SET, AND CLEARED 
1261 004236 042777 000001 174634 AFA: BIC #B1TO,@RXCSR ;CLEAR DATA TERMINAL READY 
1262 004244 032777 000002 174632 BIT #B1T1,aTXCSR ;SEE IF TXCSR BIT1 IS CLEAR. 
1263 004252 001402 BEQ AFB sBRANCH IF BIT IS CLEAR. 
1264 004254 104003 ERROR ;TXCSR BIT1 IS NOT CLEAR. 
1265 004256 000421 BR AFD sEXIT TEST 
1266 004260 052777 000001 174612 AFB: BIS #B1TO,@RXCSR ;SET DATA TERM. RDY. _ CTS VIA JUMPER) 
1267 004266 032777 000002 174610 BIT #B1T1,aTXCSR ;IS CLEAR TO SEND SET? 
1268 004274 001002 BNE AFC “BRANCH IF SET 
1269 004276 104003 ERROR :CTS NOT BEING SET VIA DTR 
1270 004300 000410 BR AFD sEXIT TEST 
1271 004302 042777 000001 174570 AFC: BIC #BITO,@RXCSR ;CLEAR DATA TERM. RDY. 
1272 004310 032777 Q000002 174566 BIT #B1T1,aTXCSR 71S CTS CLEAR? 
1273 004316 001401 BEQ AFD 
1274 004320 104005 ERROR :CTS FAILED TO CLEAR VIA DTR 
Sag 004322 104012 AFD: SCOPE ; SCOPE 
1277 SIO IOIUIIDIDIOIIUIIOIIOIOIUIIOI IOI IIOI IOI TOI IIIS OIE TOI TI II II IOI IO 
1278 004324 000006 AT6é: 6 :TEST NUMBER 6 : 
1279 004326 004424 AT7 “ADDRESS OF NEXT TEST * 
1280 004330 000144 100. ;TEST ITERATION COUNT * 
1281 004332 004534 AGA :SCOPE ENTRY POINT x 
1282 CIO IOI ICID IOIIOIIOIIIIOIOI IDIOT IOI IOIIOIUISIUIOIIO IU IOI IOI Ink 
1283 ;TEST THAT TXCSR BIT2 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1284 004334 032777 000004 174542 AGA: BIT #B1T2,aTXCSR ;SEE IF TXCSR BIT2 IS CLEAR. 
1285 004342 001402 BEQ AGB :BRANCH IF BIT IS CLEAR. 


1286 004344 104003 ERROR RESET DID NOT CLEAR TXCSR BIT2 
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1288 
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SSSSSSSSSSsseegeE 


WOO NOUS WWI © 
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000004 


000004 


000010 


000010 
000010 


000010 
000010 


000010 


174526 
174520 


174504 
174476 


174464 


174642 


174426 
174420 


174404 
174376 


174364 


AGB: 


AGC: 

AGD: 
e 

SERA AKAAERAARAERRERAEREREREAEEKKERAERERRKEAERAKAERAERRAKRREAAERKREREREKKKEKERERA RR 


AT?7: 


FREER AERA EEEEEEKEKEKRKEKEKERRAERKEEEREKKEKEEREKEAREKEEKKRKREEREEE EERE 


ha ag THAT TXCSR BIT3 CAN BE SET, CLEARED, 


AHC: 


AHD : 
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7 
AT10 


AHA. 


AGD 
#B1T2,aTXCSR 
#B1T2,aTXCSR 
AGC 


AGD 
#B1T2,aTXCSR 
#B1T2,aTXCSR 
AGD 


#B1T2,aTXCSR 


#B1T3,aTXCSR 
AHB 


AHD 
#B1T3,aTXCSR 
#B1T3,aTXCSR 
AHC 


AHD 
#B1T3.aTXCSR 
#B1T3,aTXCSR 
AHD 


#B1T3,aTXCSR 


sSET TXCSR BIT2. 


; SET. 
:TXCSR BIT2 FAILED TO SET. 


;CLEAR TXCSR BIT2 
;SEE IF BIT IS CLEAR. 


:TXCSR BIT2 FAILED TO CLEAR. 
:SET TXCSR BIT2. 

; ISSUE RESET TO CLEAR BIT. 

: SCOPE 


; TEST NUMBER 7 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


:SEE IF TXCSR BIT3 IS CLEAR. 
:BRANCH IF BIT IS CLEAR. 
;RESET DID NOT CLEAR TXCSR BIT3 


;SET TXCSR BITS. 


; BRAN Se 7. 
;TXCSR BITS FAILED TO SET. 


;CLEAR TXCSR BITS 
:SEE IF BIT IS CLEAR. 


:TXCSR BITS FAILED TO CLEAR. 
:SET TXCSR BIT3. 

: ISSUE RESET TO CLEAR BIT. 

; SCOPE 


AND THAT RESET CLEARS IT. 


* 4£* * 


SEQ 0027 
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1342 


KELEEE 
CONAUERW 


end and and 

Wotw-tw-b 
WV 
Ovo 


1360 
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NG 
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000020 


000020 
000020 


000020 
000020 


000020 


000340 
000100 


000100 
000100 


000100 
000100 


000100 


174342 


174326 
174320 


174304 
174276 


174264 


177776 
174234 


174220 
174212 


174176 
174170 


174156 


SAARC AAAERAA EEA AAARAEAAAARAAAERAAEAKAERA ARERR ER EE © 


AT10: 


SAAR EREEE RAE ERAAREAEREAEERARRAAAEREAERAEAEREAAKREEERAEKERREE HE 


; TEST THAT TXCSR 8iT4 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 


* 
SEEKER EEE EEA AARAEAAAAAEKRERAKEEKEKEEREKEKEEE EKER EEE 


SEEKER REE KEEREAERERKAEAREERAEKEKAKEKEEREEKEKEKAEKEKEKEEEERKE KEKE EH 


AND_THAT RESET CLEARS IT. 


AIA: IT #BIT4,aTXCSR 
BEQ AIB 
ERROR 
BR AID 

AIB: BIS #B1T4,aTXCSR 
BIT #B1T4,aTXCSR 
BNE AIC 
ERROR 
BR AID 

AIC: BIC #B1T4,aTXCSR 
BIT #B1T4,aTXCSR 
BEQ AID 
ERROR 

AID: IS #B1T4,aTXCSR 
SRESET 
SCOPE 

ATV: 77 
AT12 
100. 
AJA 

;TEST THAT TXCSR BIT6 CAN BE SET, CLEARED, 

AJA: MOV #PRTY7,PSW 
BIT #B1T6,aTXCSR 
BEQ AJB 
ERROR 
BR AJD 

AJB: BIS #B81T6,aTXCSR 
BIT #B1T6,aTXCSR 
BNE AJC 
ERROR 
BR AJD 

AJC: BIC #B1T6,aTXCSR 
BIT #BIT6,aTXCSR 
BEQ AJD 
ERROR 

AJD: BIS #B1T6,aTXCSR 
SRESET 
SCOPE 
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; TEST NUMBER 10 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
:SCOPE ENTRY POINT 


;SEE IF TXCSR BIT4 IS CLEAR. 
:BRANCH IF BIT IS CLEAR. 
;RESET DID NOT CLEAR TXCSR BIT4 


sSET TXCSR BIT4. 

sSEE IF BIT IS SET. 
;BRANCH IF BIT IS SET. 
;TXCSR BIT4 FAILED TO SET. 


;CLEAR TXCSR BITS 
;SEE IF BIT IS CLEAR. 


;TXCSR BIT4 FAILED TO CLEAR. 
:SET TXCSR BIT4. 

; ISSUE RESET TO CLEAR BIT. 

: SCOPE 


;TEST NUMBER 11 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


:SET PRIORITY 7. 

;SEE IF TXCSR BIT6 IS CLEAR. 
;BRANCH IF BIT IS CLEAR. 

sRESET DID NOT CLEAR TXCSR BIT6 


sSET TXCSR BIT6. 


“BRANCH IF BIT IS SET. 
“TXCSR BIT6 FAILED TO SET. 


;CLEAR TXCSR BIT6 
;SEE IF BIT IS CLEAR. 


;TXCSR BIT6 FAILED TO CLEAR. 
:SET TXCSR BIT6. 
Pipes: RESET TO CLEAR BIT. 


a #8 


a *2# * * 


SEQ 0028 
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174136 


090400 


000400 
000400 


000400 
000400 


000400 


100000 


174112 


174076 
174070 


174054 


174046 


174034 


174012 


MADRAS AAALALALAAAASAAASAARAARASAARASAAAAA AR ARAAAAARARA RS AA RAR RES ARS ARR DSSS SD | 


AT12: 


AKA: 


AKB: 


ALA: 


ALB: 


ALC: 


ALD: 


SAAR ERE EEE EKEEKKKEEEREEEKEAREEKEERAKKEEEKKEEEEKEKEREKEKERAEKEREKKEERERER EEE 


AT14: 


AMA : 


AMB : 


13:05 PAGE 30 


12 
AT13 
100. 
AKA 


TSTB 
BMI 
ERROR 
SCOPE 


ALA 


14 
AT15 
100. 
AMA 


BIT 


SCOPE 


aTXCSR 
AKB 


#B1T8,aTXCSR 


ALB 


ALD 
#B1T8,aTXCSR 
#B1T8,aTXCSR 


ALC 


ALD 
#B1T8,aTXCSR 
#B1T8,aTXCSR 


ALD 


#BIT8,aTXCSR 


#B1T15,aTXCSR 
AMB 


; TEST NUMBER 12 


;ADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

:SCOPE ENTRY POINT 

SR ICICI RIOR ICICI IORI ROTA RITA AIA IISA IIASSIISIIS IIIS SSSI SISASSI SASS SISA SISISASI ACA 
;TEST THAT TXCSR BIT 7 (READY BIT) IS SET UPON ENTERING ROUTINE AND 
;THAT IT CAN BE READ RELIABLY. 


;SEE IF TXCSR BIT 7 IS SET. 
:BRANCH IF SET. 

;TXCSR BIT 7 NOT SET. 

: SCOPE 


SERA KER EKER REE EKEKEKKEERKREEEKEREKKEEKREKEKERKEREEKEKRKEKKEKEER ERE 


AT13: 


; TEST NUMBER 13 


;ADDRESS OF NEXT TEST 
:TEST ITERATION COUNT 
;SCOPE ENTRY POINT 
SI IIOIOIIIOIISI IOI IOISIOIUIOIOIOIOIDIDISI II ICICI OI OT ITIOI TI TOT TOT OTT I TI TT TT TOT TS ETT TTT OTE 
;TEST THAT TXCSR BIT8 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
T :SEE IF TXCSR BIT8 IS CLEAR. 
:BRANCH IF BIT IS CLEAR. 
;RESET DID NOT CLEAR TXCSR BIT8 


;SET TXCSR BITS. 


; BRAN S 
:TXCSR BIT8 FAILED TO SET. 


;CLEAR TXCSR BIT8 
;SEE IF BIT IS CLEAR. 


;TXCSR BIT8 FAILED TO CLEAR. 
:SET TXCSR BIT8. 
ee RESET TO CLEAR BIT. 


;TEST NUMBER 14 


sADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 
one geen yr semen ge nme mi pf apne ES 
;TEST THAT TXCSR BIT15 IS CLEAR AND CAN BE READ RELIABLY 

:SEE IF TXCSR BIT15 IS CLEAR. 

:BRANCH IF BIT IS CLEAR 
: TXCSR BIT15 IS NOT CLEAR. 


a *2# * 


a 2 8 


* 2 2 


SEQ 0029 
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1422 SOCIO IISIIOISII ISIS III IOISIIOIOIIIDIISIOIIIDIUIOIUIOIIIUIOIOIOIOIOIIIOIUIOIIUIOIIOIUIOIUIOOTOR Ot 
1423 005100 000015 Riise 6° WD ; TEST NUMBER 15 * 
1424 005102 005172 AT16 ;ADDRESS OF NEXT TEST * 
1425 005104 000144 100. ; TEST ITERATION COUNT * 
1426 005106 005110 ANA ;SCOPE ENTRY POINT * 
1427 5 Ree RR eR Be Re Re RCT TICE Te RT RRS BITC TCT TRICO TOTO TTT TOTO TOTTORI TE tt ke 
1428 TEST THAT RXCSR BIT QO (DATA TERMINAL READY) CAN BE SET, NOT CLEARED BY RESET, AND CLEAR 
1429 005110 052777 000001 173762 ANA: BIS #BITO,ARXCSR ;SET RXCSR BIT 0. 
1430 005116 032777 000001 173754 BIT #BITO,@RXCSR ;SEE IF BIT IS SET. 
1431 005124 001002 BNE ANB “BRANCH IF BIT IS SET. 
1432 005126 104003 ERROR 
1433 005130 000417 BR AND 
1434 005132 104011 ANB: SRESET ; ISSUE RESET. 
1435 005134 032777 000001 173736 BIT #BITO,@RXCSR 7SEE IF BIT IS STILL SET. 
1436 005142 001002 BNE ANC “BRANCH IF BIT SET 
1437 005144 104003 ERROR sRESET CLEARED RXCSR BIT O. 
1438 005146 000410 BR AND 
1439 005150 042777 000001 173722 ANC: BIC #BITO,ARACSR ;CLEAR RXCSR BIT O. 
1440 005156 032777 000001 173714 BIT #BITO,aRXCSR ;SEE IF BIT IS CLEAR. 
1441 005164 001401 BEQ AND “BRANCH IF BIT IS CLEAR. 
1442 005166 104003 ERROR ;RXCSR BIT O FAILED TO CLEAR. 
1443 005170 104012 AND : SCOPE : SCOPE 
1444 DOO IIUISISISIOIOI I IOUIOIDIOIISISISIIIGISIOIIIOIUIOIOIOIOIOIIIIOIUIOIOIOIOI I TOIOIOIOIOIO TOTTI TR tok ttt t 
1445 005172 000016 AT16: 16 ; TEST NUMBER 16 
1446 005174 005272 AT17 sADDRESS OF NEXT TEST 
1447 005176 000144 100. ; TEST ITERATION COUNT 
1448 005200 005202 ANW ;SCOPE ENTRY POINT 
1449 OIA ISIOISIOIDISIOIIOIDIOIDIOIDISIOIOIIOIDISISISIOISIDIOIDIOIDIOIOIOIIOISIOIITIII III III II ICIS I TOT OTT OTT TT TIE 
eet ;TEST THAT RXCSR BIT 1 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT 
1452 005202 032777 000002 173670 ANw: BIT #BIT1,@RXCSR ;SEE IF BIT 1 IS CLEAR 
1453 005210 001402 BEQ ANX ;BRANCH IF CLEAR 
1454 005212 104003 ERROR ;RESET DID NOT CLEAR RXCSR BIT 1 
1455 005214 000421 BR ANZ 
1456 005216 052777 000002 173654 ANX: BIS #B1T1,@RXCSR ;SET RXCSR BIT1 
1457 005224 032777 000002 173646 BIT #B1T1,@RXCSR :SEE IF BIT IS SET 
1458 005232 001002 BNE ANY :BRANCH IF SET 
1459 005234 104003 ERROR sRXCSR BIT 1 FAILED TO SET 
1460 005236 000410 BR ANZ 
1461 005240 042777 Q00002 173632 ANY: BIC #B1T1,@RXCSR ;CLEAR RXCSR BIT 1 
1462 005246 032777 000002 173624 BIT #BIT1,@RXCSR ;SEE IF BIT IS CLEAR 
1463 005254 001401 BEQ ANZ 
1464 005256 104003 | ERROR ;RXCSR BIT 1 FAILED TO CLEAR 
1465 005260 052777 O00002 173612 ANZ: BIS #BIT1,A@RXCSR :SET RXCSR BIT 1 
1466 005266 104011 SRESET ; ISSUE RESET TO CLEAR BIT 
pre! 005270 104012 SCOPE ; SCOPE 
1469 DORI IIIISIOISISIDIOIIOIOIOIOIOIOIOIIIIIOI IOI IOI III IIIIOIIOIIOIOIOIOIUIOIOIOIOIOIUIOIOI III 
1470 005272 000017 AT17: 17 ;TEST NUMBER 17 * 
1471 005274 005316 AT20 ;ADDRESS OF NEXT TEST * 
1472 005276 000144 100. ;TEST ITERATION COUNT * 
1473 005300 005302 APA :;SCOPE ENTRY POINT * 
1474 Cee teat Aaede MERE Gh GRRE Unie tom Oe Gees On tee ere 
1475 ;TEST THAT RXCSR BIT2 IS CLEAR AND CAN BE READ RELIABLY 


1476 005302 032777 000004 173570 APA: BIT #B1T2,aRXCSR :SEE IF RXCSR BIT2 IS CLEAR. 
1477 005310 001401 BEQ APB :BRANCH IF BIT IS CLEAR. 


c ve 
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1478 005312 104003 ERROR ;RXCSR BIT2 IS NOT CLEAR. 
1479 005314 104012 APB: SCOPE > SCOPE 
1480 SRR RR EEE EERE RR EERE AREER EERE RRR REE EER EE 
1481 005316 000020 AT20: 20 ; TEST NUMBER 20 * 
1482 005320 005416 AT21 sADDRESS OF NEXT TEST * 
1483 005322 000144 100. ; TEST ITERATION COUNT ® 
1484 005324 005326 AQA ;SCOPE ENTRY POINT * 
1485 = We Re ERE 
1486 ; EST THAT RXCSR BIT3 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1487 005326 032777 000010 173544 AQA BIT #B1T3,aRXCSR sSEE IF RXCSR BITS IS CLEAR. 
1488 5334 001402 BEQ AQB “BRANCH IF BIT IS CLEAR 
1489 005336 104003 ERROR ;RESET DID NOT CLEAR RXCSR BITS 
1490 005340 21 BR AQD 
1491 5342 052777 000010 173530 AQB: BIS #B113,aRXCSR ;SET RXCSR BITS. 
1492 005350 032777 000010 173522 BIT #B1T3,@RXCSR sSEE IF BIT IS SET 
1493 005356 001002 BNE AQC = BRANCH IF BIT IS SET 
1494 005360 104003 ERROR sRXCSR BITS FAILED TO” SET. 
1495 005362 10 BR AQD 
1496 005364 042777 000010 173506 AQC: BIC #BIT3,ARXCSR ;CLEAR RXCSR BITS 
1497 005372 032777 000010 173500 BIT #B1T3,@RXCSR ;SEE IF BIT IS CLEAR. 
1498 005400 001401 BEQ AQD 
1499 005402 104003 ERROR sRXCSR BITS FAILED TO CLEAR. 
1500 005404 052777 000010 173466 AQD: BIS #B1T3,@RXCSR ;SET RXCSR BITS. 
1501 005412 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
1502 005414 104012 SCOPE SC E 
1503 DIIOIOIIOIIOII I I i Ri ii ii iii RR i RR IO i i ik it & 
1504 005416 000021 AT21: 21 ;TEST NUMBER 21 * 
1505 005420 005516 AT22 ;ADDRESS OF NEXT TEST * 
1506 005422 000144 100. ;TEST ITERATION COUNT * 
1507 005424 005426 ;SCOPE ENTRY POINT * 
1508 PRR RR ERE ERR EERE REE EEE REE ERE EEE EERE RE RR RR 
1509 ;TEST THAT RXCSR BIT4 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1510 005426 032777 000020 173444 ARA: BIT #BIT4S,A@RXCSR :SEE IF RXCSR BIT4 IS CLEAR. 
1511 005434 001402 BEQ ARB ;BRANCH IF BIT IS CLEAR. 
1512 005436 104003 ERROR ;RESET DID NOT CLEAR RXCSR BITS 
1513 005440 21 BR ARD 
1514 005442 052777 000020 173430 ARB: BIS #B1T4,aRXCSR ;SET RXCSR BIT4. 
1515 005450 032777 000020 173422 BIT #B1T4,aRXCSR sSté IF GIT IS SET. 
1516 005456 001002 BNE ARC ;BRANCH IF BIT IS SET. 
1517 005460 104003 ERROR sRXCSR BIT4 FAILED TO SET. 
1518 005462 10 BR ARD 
1519 005464 042777 000020 173406 ARC: BIC #B1T4,@RXCSR ;CLEAR RXCSR BITS 
1520 005472 032777 000020 173400 BIT #B1T4,@RXCSR sSEE IF BIT IS CLEAR. 
1521 55 001401 BEQ ARD 
1522 005502 104003 ERROR ;RXCSR BIT4 FAILED TO CLEAR. 
1523 005504 052777 000020 173366 ARD: BIS #B1T4,aRXCSR ;SET RXCSR BIT4. 
1524 005512 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
seg2 005514 104012 SCOPE : E 
1527 DOIIOIIISIUIUIOIIOIIIIUIIIIUIOIII OOO IUIIDIOIIOI III IO Rink tnt tink 
1528 005516 22 AT22: 22 ;TE3T NUMBER 22 
1529 005520 005542 AT23 ;ADDRESS OF NEXT TEST 
1530 005522 000144 100. ; TEST ITERATION COUNT 
1531 005524 005526 :SCOPE ENTRY POINT 
1532 Dg RE Re Rh tik kkk 
1533 : TEST THAT PARITY INDICATOR (BITS RXCSR) IS CLEAR 


Oe 
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;AND CAN BE READ RELIABLY. 


ARBA: 


ARBB: 


IOC IUIUISIOOISIOIISIO IOI IOIIOISIOIIOI IOI IOIISISIIIOIISIIISIOISISIOIISI III SII 
;TEST NUMBER 235 
;ADDRESS OF NEXT TEST 
:TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SAREE ERE AEE KEE ERA AREER KER KRAEARARAREKEREKEAEEREKEKKEKREREAE RARE EEE 


TEST a ™ RXCSR BIT6 CAN BE SET, CLEARED, AND_THAT RESET CLEARS IT. 


AT23: 


ASA: 


ASB: 


ASC: 


ASD: 


PITTI ITT TTT T LITLE ELE LLL ELL LLL LLL LLL iii 
;TEST NUMBER IS 24 
sADDRESS OF NEXT TEST 
:TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SERRA EAR AREER EE 


AT24: 


BIT #B1T5,aRXCSR 
ARBB 


#PRTY7,PSW 
BIT #B1T6,aRXCSR 
BEQ ASB 


BR ASD 
BIS #B1T6,@RXCSR 
BIT #B1T6,aRXCSR 


BNE ASC 
ERROR 
BR ASD 


BIC #B1T6,@RXCSR 
BIT #B1T6,aRXCSR 
BEQ ASD 


BIS #B1T6,aRXCSR 


:SEE IF PARITY INDICATOR IS CLEAR 
;BRANCH IF CLEAR 
:;1S NOT CLEAR 

> SCOPE 


:SET PRIORITY 7. 

;SEE IF RXCSR BIT6 IS CLEAR. 
:BRANCH IF BIT IS CLEAR. 

;RESET DID NOT CLEAR RXCSR BiT6 


:SET RXCSR BIT6. 


;SEE IF BIT 4 SET. 
:BRANCH IF BIT IS SET. 
sRXCSR BIT6 FAILED TO SET. 


;CLEAR RXCSR BIT6 
sSEE IF BIT IS CLEAR. 


:RXCSR BIT6 FAILED TO CLEAR. 
;SET RXCSR BIT6. 

; ISSUE RESET TO CLEAR BIT. 

: SCOPE 


; TEST THAT RXCSR BIT7 IS CLEAR AND CAN BE READ RELIABLY. 


ATA: 


ATB: 


FEAR AERKEKEERAAE AKER REE 
> TEST NUMBER 25 
sADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SEAR RARE AREER EEE EEE REEKRRE ERE EEE EE 


hires e~ RXCSR BIT8 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 


AT25: 


AUA 


AUB: 


BIT #B1T7,@RXCSR 
BEQ ATB 


#B1T8,aRXCSR 
AUB 


AUD 
BIS #B1T8,aRXCSR 
BIT #B1T8,@RXCSR 


;SEE IF RXCSR BIT7 IS CLEAR. 
;BRANCH IF BIT IS CLEAR. 
;RXCSR BIT? IS NOT CLEAR. 

; SCOPE 


:SEE IF RXCSR BIT8 IS CLEAR. 


“BRANCH IF BIT IS CLEAR. 
;RESET DID NOT CLEAR RXCSR BIT8 


;SET RXCSR BITS8. 
sSEE IF BIT IS SET. 


” *# 2 


a 2 8 


SEQ 0032 


ove 
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1590 005734 001002 BNE AUC ;BRANCH IF BIT IS SET. 
1591 005736 104003 ERROR ;RXCSR BIT8 FAILED TO SET. 
1592 005740 000410 BR AUD 
1593 005742 042777 000400 173130 AUC: BIC #BIT8,aRXCSR ;CLEAR RXCSR BIT8 
1594 005750 032777 000400 173122 BIT #B1T8,ARXCSR ;SEE IF BIT IS CLEAR. 
1595 005756 001401 BEQ AUD 
1596 005760 104003 ERROR ;RXCSR BIT8 FAILED TO CLEAR. 
1597 005762 052777 000400 173110 AUD: BIS #BIT8,aRXCSR ;SET RXCSR BIT8. 
1598 005770 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
1599 005772 104012 SCOPE = SCOPE 
1600 SOOIIIDIO ISIS IIOIOIUISISISIGIO IIS IIDIOIIISIUIOIIOIOIOIOIOIOIIIUIIICIIOIDIOSIOIIDIOIIOIOIOIISIIOK 
1601 005774 000026 AT26: 26 ; TEST NUMBER 26 * 
1602 005776 006074 AT27 ;ADDRESS OF NEXT TEST * 
1603 006000 000144 100. ;TEST ITERATION COUNT * 
1604 006002 006004 AVA ;SCOPE ENTRY POINT * 
1605 TOI IIIS IIIOIOIOIOISIOIIIOISIDIOIIOIIIICIDIOIOIOIIOI IOI IOIOIOIOIOIOIUIO IOC IIT TOT toto 
1606 ;TEST THAT RXCSR BITS CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
1607 006004 032777 001000 173066 AVA: BIT #BIT9,ARXCSR ;SEE IF RXCSR BIT9 IS CLEAR. 
1608 006012 001402 BEQ AVB ;BRANCH IF BIT IS CLEAR. 
1609 006014 104003 ERROR ;RESET DID NOT CLEAR RXCSR BIT9 
1610 006016 000421 BR AVD 
1611 006020 052777 001000 173052 AVB: BIS #BIT9,ARXCSR ;SET RXCSR BITS. 
1612 006026 032777 001000 173044 BIT #BIT9,ARXCSR ;SEE IF BIT IS SET. 
1613 006034 001002 BNE AVC ;BRANCH IF BIT IS SET. 
1614 006026 104003 ERROR sRXCSR BIT FAILED TO SET. 
1615 006040 000410 BR AVD 
1616 006042 042777 001000 173030 AVC: BIC #BIT9,ARXCSR ;CLEAR RXCSR BIT9 
1617 006050 032777 001000 173022 BIT #BIT9,ARXCSR ;SEE IF BIT IS CLEAR. 
1618 006056 001401 BEQ AVD 
1619 006060 104003 ERROR sRXCSR BITS FAILED TO CLEAR. 
1620 006062 052777 001000 173010 AVD: BIS #BIT9,ARXCSR :SET RXCSR BITS. 
1621 006070 104011 SRESET ; ISSUE RESET TO CLEAR BIT. 
1622 006072 104012 SCOPE : SCOPE 
1623 OIC IOIOIOIII IOI IOIOIOIOIOIDIIOIOIDIOIIIOIOIOIIOISIDIOIUIOIOIOIOIIIOIOIDIOIIOIOIIOIOIOIOIOIDIOIIOIOI GIGI 
1624 006074 000027 AT2?7: 27 ; TEST NUMBER 27 » 
1625 006076 006174 AT30 ;ADDRESS OF NEXT TEST * 
1626 006100 000144 100. ;TEST ITERATION COUNT * 
1627 006102 006104 AWA s;SCOPE ENTRY POINT * 
1628 DOO IIIUIOISIIIOIOIIIUIIOIOIOIOUIOOISIOIOIIIIIOIIOIOIOI IDIOTIC III ik ttttet 
1629 Wee THAT RXCSR BIT10 CAN BE SET, CLEARED, AND THAT RESET we: . 
1630 006104 032777 002000 172766 AWA BIT #B1T10,aRXCSR : SEE IF RXCSR BIT10 IS CLEAR 
1631 006112 001402 BEQ AWB “BRANCH IF BIT IS CLEAR 
1632 006114 104003 3 ERROR sRESET DID NOT CLEAR RXCSR BIT10 
1633 006116 000421 BR AwD 
1634 006120 052777 002000 172752 AWB: BIS #B1T10,@RXCSR ;SET RXCSR BIT10. 
1635 006126 032777 002000 172744 BIT #BIT10,aRXCSR  ;SEE IF BIT IS SET. 
1636 006134 001002 BNE AWC “BRANCH IF BIT IS SET. 
1637 006136 104003 ERROR :RXCSR BIT10 FAILED TO SET. 
1638 006140 000410 BR AwD 
1639 006142 042777 002000 172730 AwC: BIC #B1T10,aRXCSR ;CLEAR RXCSR BIT10 
1640 006150 032777 002000 172722 BIT #B1T10,aRXCSR sSEE IF BIT IS CLEAR. 
1641 006156 001401 BEQ AWD 
1642 006160 104003 ERROR sRXCSR BIT10 FAILED TO CLEAR. 


1643 006162 052777 002000 172710 AwD: BIS #BIT10,@RXCSR ;SET RXCSR BIT10. 
1644 006170 104011 SRESET hae. RESET TO CLEAR BIT. 


ove. 
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020000 


040000 


100000 


172666 


172642 


172616 


172572 


SAIS SIUIOISISISISISISISISIDIOIOIUIUIOIOIOIOIDIDISISIOIOIOIOII OI ITT TOTTI TTT TT TTT TE TTT TTT TST Tg 
NUMBER 30 

;ADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 

SAIC IOI IOIUIOISIIOISIOISIOIDISISI ISIS IIIT I TOT TOTO TOTO TTT I TTT TTT TTT TTT TIO 
;TEST THAT RXCSR BIT12 IS CLEAR AND CAN BE READ RELIABLY. 

;SEE IF RXCSR BIT12 IS CLEAR. 

:BRANCH IF BIT IS CLEAR. 

orcas BIT12 IS NOT CLEAR. 


AT30: 


AXA: 


AXB: 


IOI UIC IOI IU ISIOISIOIISISI ISOS ISO ISIOIOISIOIIOIOIIOIOIIIOIISIOISIOIOI IIIS IOI III TE 
;TEST NUMBER 31 

sADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 

SOIC IISIOIOISI SI IOIOIOIDICIOISISIOIOIOIOII I IOI OTIS TTT OT I TT TOTTI TI TT TOTO T OT TTT OTT I IE 
;TEST THAT RXCSR BIT13 IS CLEAR AND CAN BE READ RELIABLY. 

;SEE IF RXCSR BIT13 IS CLEAR. 

;BRANCH IF BIT IS CLEAR. 

pete, BIT13 IS NOT CLEAR. 


AT31: 


AYA: 


AYB: 


ICI IIIS IOI IUIIIOIISIISIUIOIO IOI IOI IIOIIOIOIOIUIIUIOIOIOIOI IDIOTIC GIORGI 
;TEST NUMBER 32 

sADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 
EIIIOIIISIIISIOIOIIIOIOIOIOIOIOIOIDIDIDIDISIOIIOIOIOIUIOIOIOIOIOIDIOIIOIOIOIOIOIOIOI IIIS IIIT TOT OTT OT TT III TIE 
TEST THAT RXCSR BIT14 IS CLEAR AND CAN BE READ RELIABLY. 

:SEE IF RXCSR BIT14 IS CLEAR. 

:BRANCH IF BIT IS CLEAR. 

;RXCSR BIT14 IS NOT CLEAR. 

; SCOPE 


TGCS ISIOISIIOISIDOIIIIOISIDISIDIIIOISIOISIIIOIIIIOIIIIOIOIOIOIOIIOIIIOITI IDIOT IOI IOI IOI ISIE 
NUMBER 33 

sADDRESS OF NEXT TEST 

;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 

TIO ISIOIIOOIOIUIUIOIDIDIDIDIDIDIDIDIDIDIDISIOIOIOISIDIOIIOIOIOIOIIIOIOIDIOIUIOIOIOIOIOII IIIT OIF 
;TEST THAT RXCSR BIT15 IS CLEAR AND CAN BE READ RELIABLY. 

;SEE IF RXCSR BIT15 IS CLEAR. 

;BRANCH IF BIT IS CLEAR. 

ote BIT15 IS NOT CLEAR. 


AT32: 


AZA BIT 
BEQ 
ERROR 

AZB: SCOPE 

AT33: 33 
AT34 
100. 


AAAA: 


AAAB : 
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AXA 


BIT 


AYA 


BIT 
BEQ 


ERROR 
SCOPE 


AZA 


BIT 


#B1T12,@RXCSR 
AXB 


, 


#B1T13,@RXCSR 
AYB 


#B1T14,@RXCSR 
AZB 


#B1T15,@RXCSR 
AAAB 


; TEST 


TEST 


as 2 


* 2 8 


a #8 


s» 2» 


SEQ 0034 


MAIN. MACY117 ata ty 17-MAR-78 13:05 PAGE 36 SEQ 0035 
CZDCAC. P11 ?=MAR-78 13:04 
; 
1693 ' 
1694 ;ALL PREVIOUS TESTS MUST HAVE BEEN RUN SUCCESSFULLY PRIOR 
1695 J RUNNING THE FOLLOWING TESTS. ALSO, THE JUMPER CONNECTOR 
1696 :MUST BE INSERTED IN THE DC11 CABLE. TO THE MODEM. COMMENTS 
eon ;REFER TO OPERATION WITH JUMPER INSERTED. 
1699 TGA ISIC IOICIISOISIOIOIIOIOISIDIOIIOIOIIOIOI ISIS IIOI ITI SITIO IOI ITI TOI TOT TOTTI TOT TIT 
1700 006314 000034 AT34: 34 ;TEST NUMBER 34 
1701 006316 006372 AT35 ;ADDRESS OF NEXT TEST 
1702 006320 000144 100. ; TEST ITERATION COUNT 
1703 006322 006324 AFBA ;SCOPE ENTRY POINT 
1704 DORIS IIDISII ISIS IIIS ISIC IUICIDIOIOIIIOIUIOIOICIOIOIUIOIOIOIOIOI ITO OOO TIT SIA IN 
1705 ; TEST THAT CARRIER DETECT SETS AND CLEARS WHEN DATA TERMINAL 
ene ;READY SETS AND CLEARS. 
1708 006324 052777 000001 172546 AFBA: BIS #BITO,@RXCSR ;SET DATA TERMINAL READY 
1709 006332 032777 000004 172540 BIT #BIT2,AaRXCSR ; TEST CARRIER DETECT 
1710 006340 001002 BNE AF BB ;SHOULD BE SET 
1711 006342 104003 ERROR WASN'T 
1712 006344 10 BR AFBC 
1713 006346 042777 000001 172524 AFBB: BIC #BITO,@RXCSR ;CLEAR DATA TERMINAL READY 
1714 006354 032777 000004 172516 BIT #BIT2,aRXCSR 7 TEST CARRIER DETECT 
1715 006362 001401 BEQ AFBC 
1716 006364 104003 ERROR z;WAS SET, ERROR 
1717 006 104011 AFBC: SRESET 
1718 006370 104012 COPE 
1719 DOI IIIIIIIDIOIOIOIOIOIOIOIOIOIOIUIOIIOIOIISIIUIOIOIOIOIOIOIIOIOIOIOIOIOIOIOIOIOIOIOOIOIOIOI IIIT 
1720 006372 000035 ac. ; TEST NUMBER 35 
1721 006374 006532 AT36 ;ADDRESS OF NEXT TEST 
1722 006376 000144 100. ;TEST ITERATION COUNT 
1723 0064 006402 AGBA ;SCOPE ENTRY POINT 
1724 DOIOIIOIO CISD IIIS IIOIOIDISIOIIIOIIIOI IO IIIOIOIOIIIIOIIIIIUIUIUIIIOIIOIIOIUIUIOI IO TOIT i tt 
1725 ;TEST THAT CARRIER TRANSITION (BIT 14) SETS WHEN CARRIER DETECT 
ooo ;CHANGES STATE, AND IS CLEARED WHEN RXCSR IS READ. 
1728 006402 042777 000001 172470 AGBA: BIC #BITO,ARXCSR ;CLEAR DATA TERMINAL READY 
1729 006410 017737 172464 001260 MOV @RXCSR,RXCSRT ;READ RXCSR 
1730 006416 032777 040000 172454 BIT #BIT14,AaRXCSR  ;TEST CARRIER TRANSITION 
1731 006424 001402 BEQ AGBB ;WAS CLEAR GO TO AGBB 
1732 006426 104003 ERROR ;WASN'T CLEAR 
1733 006430 36 BR AGBE :GO TO SCOPE 
1734 006432 005277 172442 AGBB : INC @RXCSR s;SETTING DATA TERMINAL READY 
1735 006436 2 IOT ;CAUSES CARRIER DETECT TO SET 
ee sw CAUSES CARRIER TRANSITION 
1738 006440 017737 172434 001260 MOV @RXCSR,RXCSRT sMOVE RXCSR TO TEMPORARY LOCATION 
1739 006446 032737 040000 001260 BIT #B1T14,RXCSRT ; TEST CARRIER TRANSITION 
1740 006454 001002 BNE AGBC = SHOULD BE SET GO TO AGSC 
1741 006456 104003 ERROR WAS CLEAR 
1742 006460 000422 BR AGBE 60 TO SCOPE 
1743 006462 032777 040000 172410 AGBC: BIT #B1T14,@RXCSR ;CARRIER TRANSITION BIT SHOULD 
1744 “HAVE BEEN CLEARED 
1745 006470 001402 BEQ AGBD :1T WAS GO TO AGB 
1746 006472 104003 ERROR ;1T WASN'T 
1747 006474 000414 AGBE :G0 TO SCOPE 
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000001 
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040000 


000001 
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172316 
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100000 


000001 
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AGBD: BIC #B1T0,@RXCSR ;CLEARING DATA TERMINAL READY 
;CAUSES CARRIER DETECT TO CLEAR 


;BUT CARRIER TRANSITION 


TO TEMPORARY LOCATION 


MOV @RXCSR,RXCSRT-~; 
: TEST CARRIER TRANSITION 


BIT #B1T14,RXCSRT 
BEQ AGBE :SHOULD BE CLEAR 
ERROR :1T WASN'T 
BR AGBE 

AGBE:  SRESET ; ISSUE RESET 
SCOPE ; SCOPE 


SERRE AAARAAAAREAKARAAAERAAAEARARAEAARARARARAAAAAARARAARARARARAEKKEAERKEKR EERE 


AT36: 36 ; TEST NUMBER 36 

AT37 sADDRESS OF NEXT TEST 

100. ;TEST ITERATION COUNT 

AMBA ;SCOPE ENTRY POINT 
SOI IOIOIOISISISII ISI SIIIIOIOIOIOIOIDISITISIOIOIOIOIOIOI IOI OIRO TTT OTT TTA IIIS SAISNASSSA SASS 
;TEST THAT CARRIER TRANSITION SETTING CAUSES ERROR (BIT 15 RXCSR) TO 
:SET AND THAT READING RXCSR CLEARS ERROR. 


AMBA: BIC #B1TO,@RXCSR ;CLEAR DATA TERMINAL READY 

+e @RXCSR ;SET DATA TERMINAL READY 

MOV @RXCSR,+RXCSRT ;MOVE RXCSR TO TEMPORARY LOCATION 

BIT MBITIS,RXCSRT ;TEST ERROR BIT 

E AMBB ;ERROR BIT SHOULD BE SET 
ERROR 
AMBD 

AMBB: BIT #BIT15,@RXCSR = ;TEST ERROR BIT 

BEQ AMBC ; SHOULD BE CLEAR 

ERROR 

BR AMBD 
AMBC: BIC #B1TO,aRXCSR ;CLEAR DATA TERMINAL READY 

MOV @RXCSR,RXCSRT ;MOV RXCSR TO TEMPORARY LOCATION 

BIT ABITIS,RXCSRT ;TEST ERROR BIT 

BEQ AMBD ;SHOULD BE CLEAR 

ERROR 
AMBD: SRESET ; ISSUE RESET 

SCOPE ; SCOPE 
SERRE REE AEA EAE EERE RARAEAERAAAKEERAEERRREKRAEE ERE REED 
AT37: 37 ; TEST NUMBER 37 

AT40 ;ADDRESS OF NEXT TEST 

100. ;TEST ITERATION COUNT 

AJBA ;SCOPE ENTRY POINT 
SEAR EEE EERE EERE EERE EEE REED 
;TEST THAT CLEAR TO SEND (BIT1) SET/CLEARS WHEN DATA TERMINAL 
sREADY SETS/CLEARS. 
AJBA: BIC #B1T0,aRXCSR ;CLEAR DATA TERMINAL READY 

BIT #B1T2,aTXCSR ;TEST CLEAR TO SEND 

BEQ AJBB 


SEQ 0036 
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000001 
000002 


000001 
000002 


000001 
000001 
020000 


020000 


000001 
000001 


020000 


000001 
100000 


000001 
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172176 
172174 


172154 
172152 


172062 
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172030 


172006 
171774 
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AJBB: 


AJBC: 


AJBD: 


#B1T0,@RXCSR 
#B1T1,aTXCSR 
AJBC 


AJBD 
#B1TO,a@RXCSR 
#B1T1,aTXCSR 
AJBD 


:SET DATA TERMINAL READY 

; TEST CLEAR TO SEND 

;BRANCH IF SET 

;CLEAR TO SEND SHOULD BE SET 


;CLEAR DATA TERMINAL READY 
;TEST CLEAR TO SEND 


;CLEAR TO SEND SHOULD BE CLEAR 
; ISSUE RESET 
; SCOPE 


SEER KKEEERRAEA ARERR KKKKERERAKEKKEEKKKEKEKKEKREKEREKEKEREKKEEKEREREKE EEE 


AT40: 


; TEST NUMBER 40 
sADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SERRE RRR ERK EERE EEEKEEKEEKERKKKERRERERKKREKEREREAREKKEKEEKEEKEKEKEKKERKEEKEKE EEE EH 


;TEST THAT RING (BIT 13 RXCSR) SETS WHEN REQUEST TO 


;SEND SETS AND THEN CLEARS; AN 


;AND THAT RESET CLEARS RING. 


AKBA: 
AKBB: 


AKBC: 


AKBD : 


AKBE : 


SRESET 
SCOPE 


#BITO,aTXCSR 
#B1TO.aTXCSR 
#B1TO.aTXCSR 
#81T13,a@RXCSR 
AKBC 


AKBE 
#B1T13,@RXCSR 
AKBD 


AKBE 
#B1TO,aTXCSR 
#B1TO,aTXCSR 


#B1T13,a@RXCSR 
AKBE 


RING CLEARS WHEN RXCSR IS READ. 
SET REQUEST TO SEND 

;TEST RING 

sRING SHOULD BE SET 

;TEST RING 

sRING SHOULD BE CLEAR 


:SET 
;RING 


;TEST RING 

;BRANCH IF CLEAR 

sRING SHOULD BE CLEAR AFTER RESET 
:BUT WAS SET 


: ISSUE RESET 
; SCOPE 


° 
SERA RRA EERE KRARKAKAAEAAAAAKAAAKAAAEAEAAAEAERAERAARREE SERRE HE 


AT41: 


> TEST NUMBER 41 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SERRA AKER REAR EEE EERE RARER ERE 


; TEST THAT ERROR (BIT 15 RXCSR) SETS WHEN RING SETS. 


AOBA: 


AOBB : 


#B1TO,aTXCSR 
#81715. aRXCSR 
AOBB 


AOBD 
#B1TO,aTXCSR 
#B1TO,aTXCSR 


;SET REQUEST TO SEND 
;TEST ERROR BIT 


;SET REQUEST TO SEND 
;CLEAR REQUEST TO SEND 


SEQ 0037 
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1861 007126 032777 100000 171744 BIT #BIT15,ARXCSR ; TEST ERROR BIT 

1862 007134 001002 BNE AOBC 

1863 007136 194003 ERROR 

1 007140 000410 BR AOBD 

1865 007142 042777 000001 171734 AOBC: BIC #B1T0,aTXCSR ;CLEAR REQUEST TO SEND 

1866 007150 032777 100000 171722 BIT #B1T15,@RXCSR ; TEST ERROR BIT 

1867 007156 001401 BEQ AOBD 

1868 007160 104003 ERROR 

1869 007162 104011 AOBD: SRESET ; ISSUE RESET 

1870 007164 104012 SCOPE ; SCOPE 

1871 

1872 

1873 RR Ae eB Re Be Be RIC TC TT He Be eT TT RT RIT TOTTORI 

1874 007166 000042 AT4&2: 42 ;TEST NUMBER 42 

1875 007170 007272 AT43 “ADDRESS OF NEXT TEST 

1876 007172 000144 100. sTEST ITERATION COUNT 

1877 007174 007176 Av = SCOPE ENTRY POINT 

1878 Re He Be Re Be i Re i ie Be ee eH He He i i Be i Be Be Be Be Be Be TR TR TTT TT II 

1879 ; TEST THAT SUPERVISORY RECEIVE DATA (BIT 15 TXCSR) SETS/CLEARS 

at s;WHEN SUPERVISORY XMIT DATA SETS/CLEARS. 

1882 007176 042777 000400 171674 ALBA: BIC #BIT8,ARXCSR ;CLEAR SUPERVISOR XMIT DATA 

1883 007204 032777 100000 171672 BIT #B1T15,aTXCSR :TEST SUPERVISORY RECEIVE DATA. 

1884 007212 001402 BEQ ALBB 

1885 007214 104003 ERROR ;SHOULD HAVE BEEN CLEAR 

1886 007216 000423 BR ALBD 

1887 007220 052777 000400 171652 ALBB: BIS #BIT8,ARXCSR ;SET SUPERVISORY XMIT DATA 

1888 007226 104016 DELAY :DEL 1 MSEC. Fades, ' 

1889 007230 000001 1 

1890 007232 032777 100000 171644 BIT #B1T15,aTXCSR ; TEST SUPERVISORY RECEIVE DATA 

1891 007240 001002 BNE ALBC 

1892 007242 104003 ERROR ;SHOULD HAVE BEEN SET 

1893 007244 000410 BR ALBD 

1894 007246 042777 000400 171624 ALBC: BIC #B1T8,aRXCSR ;CLEAR SUPERVISORY XMIT DATA 

1895 007254 032777 100000 171622 BIT #B1T15, @TXCSR ;TEST SUPERVISORY RECEIVE DATA 

1896 007262 001401 BEQ ALBD 

1897 007264 104003 ERROR ;SHOULD HAVE BEEN CLEAR 

1898 007266 104011 ALBD: SRESET 7; ISSUE RESET 

1899 007270 104012 SCOPE ; SCOPE 

1900 IIIS SIOOIOIIOIOIOIIIOIOIOIOI IOI IIIOIIOIOIIOIDIOIIUIDIE It 

1901 007272 000043 AT43: 43 ;TEST NUMBER 43 * 

1902 007274 007376 AT44 “ADDRESS OF NEXT TEST * 

1903 007276 000144 100. :TEST ITERATION COUNT x 

1904 007300 007302 ABAA ;SCOPE ENTRY POINT x 

1905 SRE EERE EEE EKER ERE ERE REE REE EEE EERE EERE ERE EERE 

1906 ;TEST THAT RESET CLEARS ALL TXCSR BITS, AND SETS BIT 7 (READY) 

1907 007302 012737 000340 177776 ABAA: MOV #PRTY7,PSW SET PRIORITY 7. 

1908 007310 012777 177777 171566 MOV #~) ,aTXCSR ;SET ALL POSSIBLE BITS IN TXCSR 

1909 007316 104011 SRESET : ISSUE RESET TO CLEAR BITS 

1910 007320 022777 000200 171556 CMP #BIT7,aTXCSR ;SEE IF ONLY BIT 7 IS SET. 

1911 007326 001422 BEQ ABAB ;BRANCH IF ONLY BIT 7 IS SET 

1912 007330 017737 171550 001256 MOV @aTXCSR,TXCSRT ;SAVE CONTENTS OF TXCSR 

1913 007336 012737 000200 001264 MOV #B117,TEMP :MOVE EXPECTED TXCSR TO TEMP. 

1914 007344 004537 003300 JSR %5.,0ACNV GO TO OCTAL TO ASCII CONVERT. 

1915 007350 001264 TEMP ;SOURCE ADDR. 

1916 007352 015461 ATXSB ;DESTINATION ADDR. \ 


° 
~~. 
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1917 007354 000006 6 s#0F DIGITS TO CONVERT. 

1918 007356 004537 003300 JSR %5,0ACKAV ;GO TO OCTAL TO ASCII CONVERT. 

1919 007562 001256 P TXCSRT : SOURCE ADDR. 

1920 007564 015476 ATXWAS ;DESTINATION ADDR. 

1921 007366 000006 6 sMOF DIGITS TO CONVERT. 

1922 007370 104015 ERROR1 sRESET FAILED TO CLEAR ALL BITS EXCEPT 

1923 007372 015446 ATXCSR ;BIT 7 = SEE PRINTOUT 


1924 007374 104012 ABAB: SCOPE ; SCOPE 
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1925 SR IR TCR TRI TORII IOI TICS SOIT IOR TOIOTOIOIOI I AI A I A AAA AISA ISSNISINSSIS SIS SIM 
1926 007376 000044 AT44: 44 ;TEST NUMBER 44 * 
1927 007400 007552 AT4S5 ;ADDRESS OF NEXT TEST * 
1928 007402 000144 100. ;TEST ITERATION COUNT * 
1929 007404 007406 ACAA ;SCOPE ENTRY POINT * 
1930 SII ICIS ICICI ISIS ISIS ISIS ISISIOIICIOIIIIOIDIIOISIIIOOIIOIIIIIIOIOIIITI IOI 
1931 ; TEST THAT RESET CLEARS ALL RXCSR BITS EXCEPT BIT 0 (DATA TERMINAL READY) 
1932 : ,RING, AND THE BREAK BIT. 
1933 007406 012737 000340 177776 ACAA: MOV rae k gf oe ;SET PRIORITY 7 
1934 007414 042777 000001 171456 BIC #BITO,@RXCSR “;CLEAR DATA TERM.READY 
1935 007422 012777 177775 171450 MOV Fi77778, ARXCSR :SET ALL POSSIBLE BITS IN RXCSR 
1936 007430 052777 000030 171446 BIS #30, aTXCSR ;SET MAINT BIT 
1937 007436 005077 171444 CLR @T XBUF ; TRANSMIT A CHAR 
1938 007442 105777 171436 TSTB aTXCSR “WAIT FOR 
1939 007446 100375 BPL 74 ; TRANSMITTER TO FINISH 
1940 007450 012777 000001 171430 MOV #1, aTXBUF : TRANSMIT ANOTHER CHAR. 
1941 007456 105777 171422 TSTB aTXCSR “WAIT FOR 
1942 007462 100375 BPL 74 ; TRANSMITTER TO FINISH 
1943 007464 104011 SRESET ; ISSUE RESET TO CLEAR BITS. 
1944 007466 017737 171406 001260 MOV gy ol a > MOVE RXCSR CONTENTS TO RXCSRT 
1945 007474 022737 000005 001260 CMP #5.,R ;SEE IF ONLY BIT O IS SET 
1946 007502 001417 BEQ ach ;BRANCH IF ONLY BIT O IS SET. 
1947 007504 012737 000005 001264 MOV #5,TEMP 
1948 007512 004537 003300 JSR %5 ,OACNV ;GO TO ye Bn TO ASCII CONVERT. 
1949 007516 001264 TEMP ;SOURCE A 
1950 007520 015520 ARXSB ‘DESTINATION’ ADDR. 
1951 007522 000006 6 : HOF DIGITS TO CONVERT 
1952 007524 004537 003300 JSR %5,,0ACNV ;GO TO OCTAL TO ASCII CONVERT. 
1953 007530 001260 RXCSRT ;SOURCE ADDR. 
1954 007532 015535 ARXWAS = DESTINATION ADDR. 
1955 007534 000006 6 sAOF DIGITS TO CONVERT. 
1956 007536 104015 ERROR1 sRESET FAILED TO CLEAR ALL BITS EXCEPT 
1957 007540 015505 ARXCSR :BIT 0. SEE ERROR PRINTOUT. 
1958 007542 042777 000001 171330 ACAB: BIC #BITO,@RXCSR ;CLEAR DATA TERM. READY 
1959 007550 104012 SCOPE = SCOPE 
1960 IIIT IOI TOTTI TOTTORI IOI IOI III IAI I AAA NIAAA AAA ANI SISISISISSSICSCSCSACSCSCSOSICSOSOMN 
1961 007552 000045 AT45: 45 ;TEST NUMBER 45 * 
1962 007554 007602 AT46 ;ADDRESS OF NEXT TEST * 
1963 007556 000144 100. ;TEST ITERATION COUNT * 
1964 007560 007562 ADAA ;SCOPE ENTRY POINT * 
196" DOO ISIC IOISII ISIC ICIS ICICI IOISISIOIIIIIOIIIIIOIIIOII IOI IOI IOI TO 
1966 “TEST THAT LOADING Ly ad (TRANSMITTER BUFFER) CLEARS TXCSR BIT 7 (READY) 
1967 007562 005077 171320 ADAA: CLR @ T XBUF ;LOAD TXBUF 
1968 007566 105777 171312 TSTB aTXCSR ; TEST TXCSR BIT 7 (READY BIT) 
1969 007572 100001 BPL ADAR = BRANCH IF BIT NOT SET 
1970 907574 104003 ERROR ;ERROR. LOADING TXBUF FAILED TO CLEAR READY. 


1971 007576 104011 ADAB:  SRESET ; ISSUE RESET TO SET READY. 
097600 OPE . 
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1973 ISIS ISIIISIIIIISIOI III IOIOISIIOIOIIIOIOIIIIOIOIIOIDIDIOIIIOIUIOIIOIIOIOIUIOIIOIDIUIOIUIIOIOIOIOIOIOIOIOI OT TK tot 
1974 007602 000046 AT46: 46 ; TEST NUMBER 46 * 
1975 007604 007634 AT47 ;ADDRESS OF NEXT TEST . 
1976 007606 000012 10. ;TEST ITERATION COUNT * 
1977 007610 007612 AEAA ;SCOPE ENTRY POINT * 
1978 5 Ree I RRR RII ITT TTC TTC TOTO TICE TE TTT ITO TOTTI ITT ITSO TTT TTT TTT TTT 
1979 : TEST THAT READY BIT (TXCSR BIT 7) BECOMES SET NO LATER THAN 1000 MSECS AFTER 
1980 = LOADING TXBUF WITH TRANSMIT SPEED - L # 7 (TXCSR BITS 3 AND 4) 
1981 007612 005077 171270 AEAA: CLR @ T XBUF LOAD T 
1982 007616 104016 DELAY DELAY 1000 MSECS APPROX. 
1983 007620 001750 1000. 
1984 007622 105777 171256 TSTB aTXCSR ;SEE IF READY BIT IS SET 
1985 007626 100401 BMI AEAB “BRANCH IF READY IS SET 
1986 007630 104003 ERROR ;READY NOT SET 200 MSECS AFTER BUFFER 
1987 ;LOAD. TX SPEED = 00. 
tone 007632 104012 AEAB: SCOPE = SCOPE 
1990 SRR III I OIRO TOTO OICICR TOR OIC TOT ICICI TOI IOIOOIOIOTOIOIIIIA AAI AAI A IIA III SINS NISIASISSM 
1991 007634 000047 A147: 47 ;TEST NUMBER 47 * 
1992 007636 007674 AT5O ;ADDRESS OF NEXT TEST * 
1993 007640 000012 10. ;TEST ITERATION COUNT * 
1994 007642 007644 AFAA ;SCOPE ENTRY POINT * 
1995 SIRI TTI ITOT TTT ICICI ITT TORII ITT TOIT TOT TOTTI TOTTI TOTO OTT TOTTI 
1996 ;TEST THAT READY BIT (TXCSR BIT 7) BECOMES SET NO LATER THAN 500 MSECS AFTER 
1997 = LOADING TXBUF, WITH TRANSMIT SPEED SET TO 01 (TXCSR BITS 3 AND 4). 
1998 007644 052777 000010 171232 AFAA: BIS #10,aTXCSR ;SET TX SPEED TO 01. 
1999 007652 005077 171230 CLR aT XBUF ;LOAD TXBUF 
007656 104016 DELAY ;DELAY 500 MSECS 
2001 007660 000764 500. 
2002 007662 105777 171216 TSTB @aTXCSR ;SEE IF READY BIT IS SET 
2003 007666 100401 BM! AF AB ;BRANCH IF READY IS SET 
2004 007670 104003 ERROR ;READY NOT SET 200 MSECS AFTER BUFFER 
2005 ;LOAD. TX SPEED = Q1. 
007672 104012 AF AB: SCOPE ; SCOPE. 
2007 FRIIS IOI TOTO TOIT OTIC IIT IOI IOI OITA II IOI III IIIS SISISISISISSICSACSOSACSISACSISISC SAIN 
007674 000050 AT50: 50 ; TEST NUMBER 50 * 
2009 007676 007734 AT51 sADDRESS OF NEXT TEST * 
2010 007700 000012 10. ;TEST ITERATION COUNT * 
2011 007702 007704 AGAA ;SCOPE ENTRY POINT * 
2012 OIIOIIOIOIOIIOIOIOII III III IOI IIIT TOI ATI I ITI TIS IASI IAIN 
2013 “TEST THAT READY BIT (TXCSR BIT 7) BECOMES SET NO LATER THAN 400 MSECS AFTER 
2014 = LOADING TXBUF, WITH TRANSMIT SPEED SET TO 10 (TXCSR BITS 3 AND 4). 
2015 007704 052777 000020 171172 AGAA: BIS #20,aTXCSR SET " — TO 10. 
2016 007712 005077 171170 CLR @TXBUF ;LOAD T 
2017 007716 104016 DELAY ;DELAY 400. MSECS 
2018 007720 000620 400. 
2019 007722 105777 171156 TSTB aTXCSR 3SEE IF READY BIT IS SET 
2020 007726 100401 ] AGASB *BRANCH IF READY BIT IS SET 
2021 007730 104003 ERROR sREADY NOT SET 200 MSECS AFTER BUFFER 
2022 ;LOAD. TX SPEED = 10. 


2023 007732 104012 AGAB: SCOPE : SCOPE 
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2024 BRR RI ER TRICO TE RIOT TOOTC TIO TT TOIT IIT TOT TSO III OTS IIIS IIIS IIIS IIIS SI IIIS SSSISSACS 
2025 007734 000051 ATS1: 51 > TEST NUMBER 51 * 
2026 007736 007774 AT52 ;ADDRESS OF NEXT TEST * 
2027 007740 000012 10. TEST ITERATION COUNT * 
2028 007742 007744 AHAA :SCOPE ENTRY POINT * 
2029 SIR I IR TI I I TTI III TTT I TTT TTI I IIIT TT TT TTT IIIT TT TT TOTTI 
2030 ;TEST THAT READY BIT (TXCSR BIT 7) BECOMES SET NO LATER THAN 250 MSECS AFTER 
2031 :LOADING TXBUF, WITH TRANSMIT SPEED SET TO 11 (TXCSR BITS 3 AND 4). 

2932 007744 052777 000030 171132 AHAA: BIS #30 ,aTXCSR :SET . en TO 30. 

2033 007752 005077 171130 CLR @T XBUF LOAD T 

2034 007756 104016 DELAY : DELAY 250. MSECS. 

2035 007760 000372 250. 

036 007762 105777 171116 TSTB aTXCSR sSEE IF READY BIT IS SET. 

037 007766 100401 BMI AHAB sBRANCH IF READY BIT IS SET. 

2038 007770 104005 ERROR sREADY NOT SET 200 MSECS AFTER 

2039 sBUFFER LOAD. TX SPEED = 11. 

See 007772 104012 AHAB: SCOPE ; SCOPE 
2042 SPIT TC IOI TOI IIE IOI IOI TE TEI FETT IIIT TOTTI TOI IIIA III III AISI AI III I III NII ISISISS SSCS 
2043 007774 000052 ATS2: 52 ;TEST NUMBER 52 . 
2044 007776 010212 AT55 sADDRESS OF NEXT TEST * 
2045 010000 000144 100. TEST ITERATION COUNT a 
2046 010002 010004 AIAA sSCOPE ENTRY POINT * 
2047 FAIR IIITICTTOTT IOITICTIIIIIIRIRIII KHKITR  TTIOK 
2048 ;TEST THAT TRANSMIT SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 
2049 ;TO READY BIT (TXCSR BIT 7) DECREASES AS A HIGHER SPEED IS SELECTED. 

2050 010004 005057 001246 AIAA: CLR CTRA CLEAR CTRA THROUGH CTRD 

2051 010010 005037 001250 CLR CTRB ; (USED TO COUNT ELAPSED TIME.) 

2052 010014 005037 001252 CLR Biss 

2053 010020 905037 001254 CLR 

2054 010024 042777 000030 171052 BIC #30, aTXCSR sSELECT TX SPEED 0 

2055 010032 004757 010146 JSR %7AIAS :OUTPUT CHAR AND TIME. 

2056 010036 063737 010210 001246 ADD AIAST,CTRA :ADD ELAPSED TIME TO CTRA. 

2057 010044 052777 000010 171032 BIS #10,aTXCSR sSELECT TX SPEED 1 

2058 010052 004737 010146 JSR %7,AIAS ;OUTPUT CHAR AND TIME. 

2059 010056 063737 0102:0 001250 ADD AIAST,CTRB sADD ELAPSED TIME TO CTRB. 

2060 010064 042777 000030 171012 BIC #30 ,aTXCSR sSELECT TX SPEED 2 

2061 010072 052777 000020 171004 BIS #20,aTXCSR 

2062 010100 004737 010146 JSR %7,AIAS sOUTPUT CHAR AND TIME. 

2063 010104 063737 010210 001252 ADD AIAST,CTRC ;ADD ELAPSED TIME TO CTRC. 

2064 010112 052777 000030 170764 BIS #30,aTXCSR SELECT TX SPEED 3 

2065 010120 004737 010146 JSR %7 ,AIAS ;OUTPUT CHAR AND TIME. 

2066 010124 063737 010210 001254 ADD AIAST,CTRD ;ADD ELAPSED TIME TO CTRD. 

2067 010132 004737 014334 JSR %7,CMPT CHECK THAT Shays THROUGH CTRD CONTAIN 
2068 010136 000402 BR AIAF ;DESCENDING VALUES 

2069 010140 104015 ERROR1 ; TRANSMIT SPEEDS NOT ARRANGED IN 

2070 010142 015544 ETXTIM sASCENDING ORDER. 

2071 010144 104012 AIAF: SCOPE ; SCOPE 

2072 010146 005037 010210 AIAS: CLR AIAST ;CLEAR ELAPSED TIME COUNTER. 

2073 010152 105777 170726 TSTB = ATXC SR sWAIT FOR TX READY. 

2074 010156 100375 BPL 4 

2075 010160 104016 DELAY ;WAIT 20 MSECS. 

2076 010162 000024 20, 

2077 010164 005077 170716 CLR aT XBUF ;LOAD TXBUF. 

2078 010170 104016 AIASA: DELAY :DELAY 1 MSEC. 

2079 010172 000001 1 
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010210 
170700 


010374 
170564 


170554 
010374 
170536 
170532 


010374 


170514 


170644 


001246 
170624 


001250 
001250 


AIAST: 
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AIAST 
aTXCSR 
AIASA 
47 


SEQ 0043 


; INCREMENT ELAPSED TIME COUNTER. 
:READY SET? 
BRANCH IF READY NOT SET. 


SERRA RARER KEKE EERE ARERR RARER EKER KEARSE 


ATS3: 


53 
AT54 


100. 
AJAA 


; TEST NUMBER 53 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


s » 8 


SEERA RAKE EKARKEAKREKEAEKEKKEREKEEKKEREKEEE EH 


; TEST FOR CORRECT OPERATION OF STOP CODE BIT (TXCSR BIT 8) BY CHECKING THAT TIME. 
;REQUIRED TO COMPLETE TRANSMISSION OF 2 CONSECUTIVE CHARACTERS WITH STOP BIT 


AJAA: 


AJAB: 
AJAS: 


AJASA: 


AJASB: 


AJAST: 


CLR 


ESTPCD 
SCOPE 


:SET TO 0 IS wncrRA TIME REQUIRED WITH STOP CODE BIT SET TOA 1. 


;CLEAR CTRA AND CTRB 


CTRB ; (ELAPSED TIME COUNTERS). 
#BIT8,aTXCSR =SET STOP CODE TO 7 - STOP CODES) 
‘ =OUTPUT CHAR AND T 
AJAST,CTRA = ADD ELAPSED TIME Oo CTRA 
#BIT8,aTXCSR -SET STOP CODE TO 1 (1 STOP CODE) 
%7,,AJAS ;OUTPUT CHARACTER AND TIME. 
AJAST,CTRB ;ADD ELAPSED TIME TO CTRB 
CTRA,CTRB sSEE IF CTRA IS GREATER THAN CTRB 
AJAB ;BRANCH IF CTRA IS GREATER. 
sERROR. ELAPSED TIME FOR 2 STOP CODE 
oe NOT GREATER THAN FOR 1 STOP 
; SCOPE 
AJAST ;CLEAR ELAPSED TIME COUNTER AJAST 
— s;WAIT FOR TX READY. 
sWAIT 20 MSECS. 
a7 XBUF s;LOAD TXBUF 
:DELAY 1 MSEC 
AJAST ; INCREMENT jE LAPSED TIME COUNTER 
aTXCSR =READY SET? 
AJASA “BRANCH IF “READY NOT SET. 
aT XBUF ;LOAD TXBUF. 
;DELAY 1 "MSEC. 
AJAST : INCR ELAPSED TIME COUNTER. 
aTXCSR =READY SET? 
_ = BRANCH IF READY NOT SET. 


sEXIT 
:ELAPSED TIME COUNTER. 


cy vse 
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014334 


010620 
170316 


170306 


010620 
170270 


001250 
170376 
170370 


001252 
170350 


001254 
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MAARARARARARARARARALARLARARAARAAAAARAR ASA SAAR AAA AAA RA RA RA SRR SRR RRR RRR REDS DDD | 


ATS<: 


; TEST NUMBER 54 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


* 2 8 


SERRA AAA AERA AAAAERKEKEEKEARKEAKRAERAKAEEARARKAREKERE EKER EE 


;TEST FOR CORRECT OPERATION OF CHARACTER LENGTH SELECTION (RXCSR BITS 9 AND 10) 


;BY CHECKING THAT TIME REQUIRED 
is A i CODE oy 7 BIT CODE 


AKAB: 
AKAS: 


AKASA: 


AKAST: 


CLR 


CTRB 
CTRC 


CTRD 

#3000 ,@RXCSR 
%7 ,AKAS 
AKAST,CTRA 
#3000 ,,@RXCSR 
#1000 ,a@RXCSR 
%7,AKAS 
AKAST,CTRB 


#3000 ,@RXCSR 
ogee @RXCSR 
7 AKA 


S 
AKAST , CTRC 
#3000 ,aRXCSR 

7 ,AKAS 


a/, 
AKAST ,CTRD 
%7,CMPT 


AKAST 
— 


a7 XBUF 


AKAST 
aTXCSR 
AKASA 
47 


A OUTPUTTING A CHARACTER IS LONGEST FOR 


=CLEAR CTRA THROUGH CTRD. 
> (ELAPSED TIME COUNTERS). 


;SET CHAR LENGTH TO . (8 BIT CODE). 
;OUTPUT CHARACTER AND TIME. 
:ADD ELAPSED TIME TO CTRA 
;SET CHAR LENGTH TO 01 (7 BIT CODE). 


;OUTPUT CHARACTER AND tg 
;ADD ELAPSED TIME TO C 
:SET CHAR LENGTH TO 10. 6 BIT CODE) 


;OUTPUT CHARACTER AND a 

:ADD ELAPSED TIME TO CTR 

;SET CHAR LENGTH TO 11 (5 BIT CODE) 
:OUTPUT CHACTER AND TIME 


:ADD ELAPSED TIME TO CTRD 

;CHECK THAT CTRA THROUGH CTRD 
;DESCENDING VALUES. 

;TX CHARACTER LENGTH NOT ARRANGED 
: IN — ORDER. 


SCO 
;CLEAR ELAPSED TIME COUNTER AKAST 
;WAIT FOR TX READY. 


sWAIT 20 MSECS. 


;LOAD TXBUF 
sDELAY 1 MSEC 


; INCREMENT jE LAPSED TIME COUNTER 
:READY SET? 
BRANCH IF READY NOT SET 


> EX 
:ELAPSED TIME COUNTER 


SEQ 0044 


Cc ve 
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2173 

2176 RR II IIR II III RII RII II III Ri iii I i i fe ie iit i ie 

2175 010622 000055 ATSS: 55 ; TEST NUMBER 55 : 

2176 010624 010676 AT56 sADDRESS OF NEXT TEST * 

2177 010626 000144 100. ;TEST ITERATION COUNT * 

2178 010630 010632 ALAA ;SCOPE ENTRY POINT * 

2179 DORIS RII III IOI III ICIS IIS IIIS IOI III ICICI IIIT IIOIUIIOIUIOIOI IO TTT RK tt tt 

2180 ;TEST THAT OUTPUTTING A CHARACTER WITH THE MAINTENANCE BIT SET (TXCSR BIT 2) 

2181 ;RESULTS IN DONE BIT SETTING (RXCSR BIT 7) NO LATER THAN 200 MSECS, AND 

2182 ; THAT RESET INSTRUCTION CLEARS THE DONE BIT 

2185 010632 052777 000004 170244 ALAA: BIS #B1T2,aTXCSR ;SET MAINTENANCE (TXCSR BIT 2) 

2184 010640 005077 170242 CLR a7 XBUF ;LOAD TXBUF 

2185 010644 104016 DELAY s;WAIT 200 MSECS. 

2186 010646 000310 200. 

2187 010650 105777 170224 TSTB @RXCSR ;SEE IF DONE BIT IS SET 

2188 010654 100402 BMI ALAB s;BRANCH IF DONE BIT IS SET 

2189 010656 104003 ERROR ;DONE BIT FAILED TO SET 

2190 010660 000405 BR ALAC 

2191 010662 104011 ALAB: SRESET ; ISSUE RESET TO CLEAR DONE BIT 

2192 010664 105777 170210 TSTB @RXCSR ;SEE IF DONE BIT IS CLEARED 

2193 010670 100001 BPL ALAC sBRANCH IF DONE BIT IS CLEARED 

2194 010672 104003 ERROR sRESET FAILED TO CLEAR DONE BIT 

2195 010674 1040712 ALAC: SCOPE ; SCOPE 

2196 ORI III IIIIIIIIOII ISIC IIOIOIOIIIOTOIIIIOT IIIT TIO III TO i i tet tt 

2197 010676 000056 AT56: 56 . ¢TEST NUMBER 56 

2198 010700 010744 AT57 sADDRESS OF NEXT TEST * 

2199 010702 000144 100. ;TEST ITERATION COUNT * 

2200 010704 010706 AMAA ;SCOPE ENTRY POINT * 

2201 SR RRR EEE ER REE EERE EERE EERE EEE EERE ERE RR Re 

2202 ;TEST THAT DONE BIT (RXCSR BIT 7) IS CLEARED BY READING RXBUF. 

2205 :DONE SET BY OUTPUTTING CHARACTER WITH MAINTENANCE BIT SET (TXCS8 BIT 2) 

2204 010706 052777 000004 170170 AMAA: BIS #B1T2,aTXCSR ;SET MAINTENANCE BIT (TXCSR BIT 2) 

2205 010714 005077 170166 CLR aT XBUF ;LOAD TXBUF 

2206 010720 105777 170154 AMAB: TSTB A@RXCSR sWAIT FOR DONE BIT TO SET. 

2207 010724 100375 BPL AMAB 

2208 010726 005777 170150 TST @RXBUF ;READ RXBUF TO CLEAR DONE BIT 

2209 010732 105777 170142 TSTB @RXCSR ;SEE IF DONE BIT IS CLEAR 

2210 010736 100001 BPL AMAC ;BRANCH IF DONE BIT IS CLEAR 


2211 010740 104003 ERROR sREADING RXBUF FAILED TO CLEAR DONE BIT 
2212 010742 104012 AMAC: SCOPE OPE 
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2213 
2214 CII IIIS ICU IOUICI ISI ISICIUIUIIOI IOI IUISIOISIOIOIOIOIIOIOIOIIOISIOICIOIOISIOIOIOI IIIT ITT I 
2215 010744 000057 ATS7: 57 ;TEST NUMBER 57 * 
2216 010746 011032 AT60 ;ADDRESS OF NEXT TEST * 
2217 010750 000012 10. ; TEST ITERATION COUNT * 
2218 010752 010754 ANAA ;SCOPE ENTRY POINT & 
2219 DEI IOIUIS IS IGIISIOIIIO IO IS IIIS IOIISIISIOIIOIIUIIOIIOIISIISIOIIOIOIOIIOI OID 
2220 ; TEST THAT DONE BIT (RXCSR BIT 7) SETS NO LATER THAN 500 MSECS AFTER OUTPUTTING 
2221 ; CHARACTER WITH MAINTENANCE BIT SET AND RECEIVE SPEED SET TO 01 (TRANSMIT 
2222 ;SPEED ALSO SET TO 01 
2223 010754 042777 000030 170122 ANAA: BIC #30,aTXCSR ;SET MAINTENANCE BIT AND SET 
2224 010762 052777 000014 170114 BIS #14,aTXCSR 3TX SPEED=01 
2225 010770 042777 30 1701C2 BIC #30,a@RXCSR ;SET RX SPEED =01 
2226 010776 052777 000010 170074 BIS #10, ARXCSR 
2227 011004 005077 170076 CLR @ 71 XBUF ;LOAD TXBUF 
2228 011010 104016 DELAY ;DELAY 500 MSECS. 
2229 011012 000764 590. 
2230 011014 105777 170060 TSTB @RXCSR ;SEE IF DONE BIT IS SET. 
2231 011020 100401 BM! ANAB = BRANCH IF DONE IS SET 
2232 011022 104003 ERROR ;DONE FAILED TO SET WITH RX SPEED=01. 
2233 011024 005777 170052 ANAS : TST @RXBUF ;CLEAR DONE BIT IF SET 
she: 011030 104012 SCOPE : SCOPE 
2236 DORIC IO IISOIIOIOIOISIIGIIOIIIOIOIIOIUIIDIIIOIIOIOIDIOIIIOIUOIOIDIOIDIDIIOISI ICID IO I tot 
2237 011032 000060 AT60: 60 ; TEST NUMBER 60 * 
2238 011034 011120 AT61 :ADDRESS OF NEXT TEST * 
2239 011036 000012 10. ; TEST ITERATION COUNT * 
2240 011040 011042 AOAA ;SCOPE ENTRY POINT * 
2241 DOI ISIOIIIO ICO IOC IOI IIIIDIOIDIUIOIIUIOIIOII INDIO ion oi noi ink 
2242 ; TEST THAT DONE BIT (RXCSR BIT 7) SETS NO LATER THAN 400 MSECS AFTER OUTPUTING 
2243 ; CHARACTER WITH MAINTENANCE BIT SET AND RECEIVE SPEED SET TO 10 (TRANSMIT 
2244 ;SPEED ALSO SET TO 10). 
2245 011042 042777 000030 170034 AOAA: BIC #30,aTXCSR ;SET MAINTENANCE BIT AND SET 
2246 011050 052777 000024 170026 BIS #24 ,aTXCSR 3TX SPEED=10. 
2247 011056 042777 000030 170014 BIC #30. @RXCSR ;SET RX SPEED=10. 
2248 011064 052777 000020 170006 BIS #20,ARXCSR 
2249 011072 005077 170010 CLR a7 XBUF ;LOAD TXBUF 
2250 011076 104016 DELAY ;DELAY 400 MSECS 
2251 011100 400. 
2252 011102 105777 167772 TSTB @RXCSR ;SEE IF DONE BIT IS SET. 
2253 011106 100401 BM! AOAB = BRANCH IF DONE BIT IS SET. 
2254 011110 104003 ERROR ;DONE FAILED TO SET WITH RX SPEED=10. 
2255 011112 005777 167764 AOAB: TST @RXBUF ;CLEAR DONE BIT IF SET 
2256 011116 104012 SCOPE > SCOPE 
2257 DIIGO IIOIICISI I IISIIUISIIOIOUIIUIIUIUIDIIIOIIIOIUIOIIOUIOI I TO RoR Rit nto tit tom t 
2258 011120 000061 AT61: 61 ; TEST NUMBER 61 * 
2259 011122 011172 AT62 ;ADDRESS OF NEXT TEST . 
2260 011124 000012 10. ;TEST ITERATION COUNT * 
2261 011126 011130 APAA ;SCOPE ENTRY POINT * 
2262 DCIS ICIS ICICI III IIOIIDIIOIIIUIIOIUIID IOI OR Ioiom itt 
2263 ;TEST THAT DONE BIT (RXCSR BIT 7) SETS NO LATER THAN 250 MSECS AFTER OUTPUTTING 
2264 ; CHARACTER WITH MAINTENANCE BIT SET AND RECEIVE SPEED SET11 (TRANSMIT SPEED 
2265 sALSO SET TO 11). 
2266 011130 052777 000034 167746 APAA: BIS #34 ,aTXCSR ;SET MAINT BIT AND TX SPEED=11 
2267 011136 052777 000030 167734 BIS #30 ,aRXCSR ;SET RX SPEED=11 
2268 011144 005077 167736 CLR @ 7 XBUF ;LOAD TXBUF 
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2269 011150 104016 DELAY ;DELAY 250 MSECS. 

2270 011152 000372 250. 

2271 011154 1905777 167720 TSTB @RXCSR ;SEE IF DONE BIT IS SET. 

2272 011160 100401 BM] APAB ;BRANCH IF DONE BIT [IS SET. 

2273 011162 104003 ERROR ;DONE FAILED TO SET WITH RX SPEED=11 

2274 011164 005777 167712 APAB: TST @RXBUF ;CLEAR DONE BIT IF SET. 

2275 011170 104012 SCOPE ; SCOPE 

2276 

cer? 

2278 DOI III IISICIOISIOIOIOIOIOIOIUIOIIUIOIOIIOI ICICI OI IIIS OTIS SOT ISS IIA 

2279 011172 000062 AT62: 62 ;TEST NUMBER 62 * 

2280 011174 011474 AT63 ;ADDRESS OF NEXT TEST * 

2281 011176 000144 100. ;TEST ITERATION COUNT * 

2282 011200 011202 AQAA ;SCOPE ENTRY POINT * 

2283 DOI II IIISIOIOIOIOIOIIOIOIOIII II IO I IOIOIOIOIOIOIOIIOIOITOIOTOTOTOT TOTO TOTO TOR TORT TOR TOTTI SO Ti th 

2284 3; TEST THAT RECEIVE SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 

2285 sELAPSED TO DONE BIT SETTING (RXCSR BIT 7) DECREASES AS A HIGHER SPEED 

2286 31S SELECTED. THE TRANSMIT SPEED SELECTED WILL CORRESPOND TO THE SELECTED RECEIVE SPEED 

2287 011202 005037 001246 AQAA: CLR CTRA ;CLEAR CTRA THROUGH CTRD 

2288 011206 005037 001250 CLR CTRB ; (ELAPSED TIME COUNTERS) 

2289 011212 005037 001252 CLR CTRC 

2290 011216 005037 001254 CLR CTRD 

2291 011222 042777 000030 167654 BIC #30,aTXCSR ;SELECT TX SPEED 00 

2292 011230 052777 000004 167646 BIS #BIT2,aTXCSR 7SET MAINTENANCE BIT 

2293 011236 042777 000030 167634 BIC #30.,@RXCSR ;SELECT RX SPEED 00 

2294 011244 004737 011424 JSR %7,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT 

2295 011250 063737 011472 001246 ADD AQAST,CTRA ;ADD ELAPSED TIME TO CTRA 

2296 011256 042777 000030 167620 BIC #30,aTXCSR ;SELECT TX SPEED 01 

2297 011264 052777 000010 167612 BIS #10,aTXCSR 

2298 011272 042777 000030 167600 BIC #30,@RXCSR ;SELECT RX SPEED 01. 

2299 011300 052777 000010 167572 BIS #10, ARXCSR 

2300 O11 004737 011424 JSR %7.,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT 

2301 011312 063737 011472 001250 ADD AQAST,CTRB ;ADD ELAPSED TIME TO CTRBS 

2302 011320 042777 000030 167556 BIC #30,aTXCSR ;SELECT TX SPEED 10 

2303 011326 052777 000020 167550 BIS #20,aTXCSR 

2304 011334 042777 000030 167536 BIC #30, @RXCSR ;SELECT RX SPEED 10 

2305 011342 052777 000020 167530 BIS #20, @RXCSR 

2306 011350 004737 011424 JSR %7,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT. 

2307 011354 063737 011472 001252 ADD AQAST, CTRC ;ADD ELAPSED TIME TO CTRC. 

2308 011362 052777 000030 167514 BIS #30, aTXCSR sSELECT TX SPEED 11 

2309 011370 052777 000030 167502 BIS #30. aRXCSR sSELECT RX SPEED 11 

2310 011376 004737 011424 JSR %7,AQAS ;OUTPUT CHARACTER AND TIME DONE BIT 

2311 011402 063737 011472 001254 ADD AQAST,CTRD ;ADD ELAPSED TIME TO CTRD. 

2312 011410 004737 014334 JSR %7,CMPT ;CHECK THAT CTRA THROUGH CTRD CONTAIN 

2313 011414 000402 BR AQAB = DESCENDING VALUES. 

2314 011416 104015 ERROR1 *RECEIVE SPEEDS NOT ARRANGED IN 

2315 011420 015730 ERXTIM > ASCENDING ORDER. 

2316 011422 104012 AQAB: SCOPE : SCOPE 

2317 011424 005037 011472 AQAS: CLR AQAST ;CLEAR ELAPSED TIME COUNTER AQAST 

2318 011430 105777 167450 TSTB aTXCSR sWAIT FOR TX READY. 

2319 011434 100375 BPL 74 

2320 011436 104016 DELAY ;WAIT 20 MSECS. 

2321 011440 000024 20. 

2322 011442 005777 167434 TST @RXBUF ; CLEAR a CIT IF SET 

2323 011446 005077 167434 CLR aT XBUF = LOAD T XBUF 


2324 011452 104016 AQASA: DELAY ;DELAY 1 MSEC 


a 





-MAIN. 


MACY11 30A(1052) 


CZDCAC.P11 


011454 


011472 


17-MAR-78 


17=MAR-78 
13:04 


011472 
167412 


AQAST: 


13:05 PAGE 49 


- INCREMENT ELAPSED TIME COUNTER 
“DONE SET? 

BRANCH IF DONE NOT SET 
“ELAPSED TIME COUNTER 


SEQ 0048 
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001246 


014334 


011730 
167220 


167204 
000004 
167176 


011730 
167154 


167346 
001246 
167326 
167320 
001250 
167300 
167272 


001252 
167252 


001254 


167200 


13:05 PAGE 50 


SERRA RARER RRA KERARRARAEAKKRAARAKEKKKEKRRAAEKAKARERE ARK 


AT63: 63 
AT64 
100. 
ARAA 


; TEST NUMBER 63 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


a *# 2 


SERRE ERK AEE REAR ERREAKRAEKRRARREAEKEREKHERERERKERR EEK 


;TEST FOR CORRECT OPERATION OF CHARACTER LENGTH SELECTION DURING RECEIVE 
;(RXCSR BITS 9 AND 10) BY CHECKING THAT TIME REQUIRED TO RECEIVE A CHARACTER 


;1S LONGEST FOR 8 BIT CODE THAN 
ARAA: CTRA 


CLR 
CLR CTRB 
CLR CTRC 
CLR CTRD 
BIC #3000 ,@RXCSR 
JSR %7,ARAS 
ADD ARAST,CTRA 
BIC #3000,a@RXCSR 
BIS #1000,@RXCSR 
JSR %7,,ARAS 
ADD ARAST,CTRB 
BIC #3000, @RXCSR 
BIS yee @RXCSR 
JSR 7 ,ARAS 
ADD ARAST, CTRC 
BIS #3000,@RXCSR 
JSR %7 , ARAS 
ADD ARAST, CTRD 
JSR %7,CMPT 
ARAB 
ERROR1 
ERCLGT 
ARAB: SCOPE 
ARAS: CLR ARAST 
TSTB aTXCSR 
L -4 
DELAY 
20. 
TST @RXBUF 
BIS #BIT2,aTXCSR 
CLR aT XBUF 
ARASA: DELAY 
INC ARAST 
TSTB @RXCSR 
BPL ARASA 
RTS %7 
ARAST: OPEN 


FOR 7 BIT CODE ETC. 
;CLEAR CTRA THROUGH CTRD 
; (ELAPSED TIME COUNTERS) 


;SET CHAR LENGTH TO 00 (8 BIT — 
:OUTPUT CHAR AND TIME DONE BIT 

:ADD ELAPSED TIME TO CTRA 

;SET CHAR LENGTH TO 01 (7 BIT CODE) 


;OUTPUT CHAR AND TIME cm BIT 
:ADD ELAPSED TIME TO CTRB 
;SET CHAR LENGTH TO 10 (6 BIT CODE) 


;OUTPUT CHAR AND TIME DONE BIT 


;ADD ELAPSED TIME TO CTRC 

;SET CHAR LENGTH TO 11 (5 BIT CODE) 
;OUTPUT CHAR AND TIME DONE BIT 

:ADD ELAPSED TIME TO CTRD 


:CHECK THAT CTRA THROUGH CTRD 

;CONTAIN DESCENDING VALUES 

sRECEIVE CHARACTER LENGTHS NOT ARRANGED 
— ORDER 


“CLEAR ELAPSED TIME COUNTER ARAST 
“WAIT FOR TX READY. 


;WAIT 20 MSECS. 

;CLEAR DONE BIT IF SET 
;SET MAINTENANCE BIT 
;LOAD TXBUF 


;DELAY 1 MSEC. 


; INCREMENT ELAPSED ro’. COUNTER 
:SEE IF DONE DIT IS SET 
=BRANCH IF NOT SET 


“EXIT 
;ELAPSED TIME COUNTER 


SEQ 0049 
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011740 


011742 


012014 
012016 


012020 


012054 


012056 


000405 
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012026 
167122 001260 
010000 001260 
001260 
010000 167064 
167056 
000004 167050 
167046 
002632 
000100 167010 
177776 
000104 166776 
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SERRA AAA RRA EAKEREEERRAAEAKEAAKEKRAARAEA RAKE EAE 


AT64: 


; TEST NUMBER 64 
sADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


a @ 8 


TARR RAKE REE KKEKERE KEE KKEEREREKEKEKKKRERAERAEREREKEREAEREERKEKEEKEEEKERERKEKKEREREE EE 


ASAA 


ASAB: 


ASAC: 


ASAD: 
ASAS: 


: TEST CORRECT OPERATION OF DATA 
7 ,ASAS 


%7,ASAS 
ARXCSR,RXCSRT 
#B1T12,RXCSRT 
ASAB 


ASAD 
RXCSRT 
ASAC 


ASAD 
#BIT12,@RXCSR 
ASAD 

@RXBUF 
#BIT2,aTXCSR 


aT XBUF 


47 


OVERRUN BIT (RXCSR BIT 12) 


;OUTPUT CHARACTER AND WAIT 200 MSECS 
;OUTPUT CHARACTER AND WAIT 200 MSECS 
;SAVE RXCSR CONTENTS 

;SEE IF DATA OVERRUN BIT WAS SET 
:BRANCH IF BIT WAS SET 


;SEE IF ERROR BIT WAS SET (RXCSR BIT 15) 


;ERROR BIT FAILED TO SET 
;WHEN DATA OVERRUN SET 


;SEE IF DATA OVERRUN WAS 
;CLEARED WHEN RXCSR WAS READ 
;BRANCH IF CLEAR 

sREADING RXCSR FAILED 

;TO CLEAR DATA OVERRUN 
;CLEAR DONE BIT (RXCSR BIT 7) 


; SCOPE 
;SET se BIT 


;LOAD T 
; DELAY 500 MSECS 


sEXIT 


SRE EEE KEKE EKER EEE AKER KEKE EK 


AT65: 


65 
AT66 
10. 
ATAA 


; TEST NUMBER 65 
;ADDRESS OF NEXT TEST 
:TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


a £ 8 


SRA AKER KEKE ERE KEKE EKER REE 


; TEST THAT TRANSMITTER IS ABLE TO INTERRUPT. 


;I1T WILL HAVE OCCURRED AT THE CORRECT VECTOR. 


ATAA: 


ATAB: 
ATAC: 


7,O0VRLAY 


#B1T6,aTXCSR 
PSW 
#104 ,aTXCSR 


ATAB 


IF THE INTERRUPT IS SERVICED, 


:GO TO OVER LAY ROUTINE 
i SERVICE 


:T0 

;DISABLE TX INTERRUPT 

;SET PROCESSOR PRIORITY TO 0 
sENABLE TX INTERRUPT 

;READY DID NOT CAUSE AN INTERRUPT 
> SCOPE 


“HERE IF INTERRUPT IS SERVICED. POP 
“THE STOCK TWICE 


SEQ 0050 


o 
~ 1. “> 
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012130 


012174 
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000067 
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000100 


177776 
166734 
166726 


166716 


166664 
177776 
177776 
166642 


166624 
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AT66: 66 ; TEST NUMBER 66 * 
AT67 ;ADDRESS OF NEXT TEST * 
1000. ;TEST ITERATION COUNT * 
AUAA ;SCOPE ENTRY POINT * 


III IIIS IOIOIOIOIOIOIOIOIOIOIOIIOI TOOT OTTO OTT TT TTT I Eg 
;TEST THAT READY DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR IS 
;AT THE _ AS THE TRANSMITTER INTERRUPT REQUEST LEVEL 


STIX :SET TX INTERRUPT SERVICE TO 
AUAA: MOV TXLVL ,PSW :SET PROCESSOR PRIORITY SAME AS TX PRIORITY 
BIC #BIT6.aTXCSR § :DISABLE TX INTERRUPTS 
BIS #104,aTXCSR :ENABLE TX INTERRUPTS 
NOP 
AUAB: BIC #BIT6,aTXCSR OK IF NO INTERRUPT OCCURS. DISABLE INTERRUPTS 
AUAC: SCOPE = SCOPE 
POPSP2 “HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
ERROR =TX INTERRUPTED WITH PROCESSOR AT SAME 
BR AUAC “PRIORITY AS THE TRANSMITTER 
[EAA KEAAARKEERERKREKKEKEKKEERKERAEKRKE EH 
AT67: 67 ; TEST NUMBER 67 * 
AT70 :ADDRESS OF NEXT TEST . 
10. =TEST ITERATION CUUNT . 
AVAA :SCOPE ENTRY POINT - 


SAAS ISIIOIIDIOIOISIDIDISISIIDIOIOISIDIOIOI TIO IID I IOI I SI I I TT TT I TE 
;TEST THAT TRANSMITTER INTERRUPTS WHEN ee gg IS AT PRIORITY ONE LEVEL 
:LOWER THAN THE TRANSMITTER INTERRUPT PRIORITY 

STTXV sSET TX INTERRUPT SERVICE TO AVAB 


AVAB 
AVAA: BIC #BIT6,aTXUSR ;DISABLE TX INTERRUPTS 

MOV TXLVL,PSW sSET PROCESSOR PRIORITY TO ONE LEVEL 

SUB #40 ,PSW -LOWER THAN TX PRIORITY 

ais #104,aTXCSR = ENABLE TX INTERRUPTS 

ERROR ae :;TX FAILED TO INTERRUPT 

V 

AVAB: POPSP2 ;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
AVAC: BIC #BIT6,aTXCSR ;DISABLE TX INTERRUPTS 

SCOPE ; SCOPE 


SEQ 0051 





-MAIN. 


MACY11 30A(1052) 


CZDCAC.P11 


012262 


012270 


012272 
012274 


012374 


17-MAR-78 


17-MAR-78 
13:04 


000100 
177776 
000104 


000100 


012352 
012546 


002632 


014314 
000100 
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166600 
166566 


166554 
166554 


166466 
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AT79: 70 ; TEST NUMBER 70 * 
AT71 ;ADDRESS OF NEXT TEST * 
100. ;TEST ITERATION COUNT * 
AWAA ;SCOPE ENTRY POINT * 


SEERA AKEAEAKREAEAKEEEE AERA ERRKEAAEKEAAARKEAREKEEREKEERKERRRREE EH 


;TEST THAT TRANSMITTER DOES NOT REINTERRUPT AFTER THE INITIAL INTERRUPT HAS 
;OCCURRED AND HAS BEEN SERVICED. 


AWAA: hey ;SET TX INTERRUPT SERVICE TO AWAC 
BIC #B1T6,aTXCSR ;DISABLE TX INTERRUPTS 
CLR PSW ;SET PROCESSOR PRIORITY TO 0 
t. #104,aTXCSR sENABLE TX INTERRUPTS 
ERROR ; TRANSMITTER FAILED TO INTERRUPT 
AWAB: BIC #B1T6,aTXCSR :DISABLE TX INTERRUPTS 
SCOPE ; SCOPE 
AWAC: MOV HAWAE ,aTXVIR sHERE IF INTERRUPT OCCURS. CHANGE EXIT 
NF HAWAD ,%6 sPOINTER TO AWAD AND EXIT INTERRUPT 
AWAD: NOP ;O0K IF NO INTERRUPT REOCCURS. 
BR AWAB 
AWAE POPSP2 sHERE IF INTERRUPT REOCCURS 
— ae ;TX REINTERRUPTED AFTER RTI 


SRR IRIS OIRO IOI OI ORS SAI IIA III III IAAI IIIISISIISISISISIS SSAA IAAI AAA AIAAAA 
AT71: 71 ;TEST NUMBER 71 

AT72 ;ADDRESS OF NEXT TEST 

10. :TEST ITERATION COUNT 

AXAA ;SCOPE ENTRY POINT 


SEAR E REAR EKER KEKKEKEKEKEREKEKKEKKEKEKEKERERKRKAERKRKEKEKKEREKKEAEKKKEAEEREEKEEREK KE 


;TEST THAT RECEIVER DONE BIT IS ABLE TO INTERRUPT. IF THE INTERRUPT IS 


”» *# * 8 


: SERVICED IT WILL HAVE OCCURRED AT THE CORRECT VECTOR. 


SR 7,O0VRLAY :GO TO OVERLAY ROUTINE 
hy :SET RX INTERRUPT SERIVCE TO AXAB 
JSR %7,STRXD ;SET RX DONE BIT 
AXAA: BIC #B1T6,aRXCSR ;DISABLE RX INTERRUPTS 
CLR PSW ;SET PROCESSOR PRIORITY TO 0 
ot #B1T6,aRXCSR ;ENABLE RX INTERRUPTS 
ERROR fre ;RX FAILED TO INTERRUPT 
X 
AXAB:  POPSP2 sHERE IF INTERRUPT OCCURS 
AXAC: SCOPE ; SCOPE 


SEQ 0052 
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AT72: 72 ; TEST NUMBER 72 * 
AT73 ;ADDRESS OF NEXT TEST * 
1000. ;TEST ITERATION COUNT * 
AYAA ;SCOPE ENTRY POINT * 


SEEKER AREA KRAREAEEAEEREAER AERA EERERAERERKEERAKEEKEEEEREEKEKEKEKEKEKERKEEEREER EEE 


;TEST THAT RECEIVER DONE BIT DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR 
:IS AT 7 SAME PRIORITY LEVEL AS THE RECEIVER INTERRUPT REQUEST LEVEL 


egy ;SET RX INTERRUPT SERVICE TO AYAC 
JSR %7,STRXD ;SET RX DONE BIT 

AYAA: BIC #BIT6,aRXCSR ;DISABLE RX INTERRUPTS 
MOV RXLVL,PSW ;SET PROCESSOR PRIORITY SAME AS RECEIVER'S 
ot. #B1T6,aRXCSR sENABLE RX INTERRUPTS 

AYAB: BIC #BI1T6,AaRXCSR 30K IF NO INTERRUPT. DISABLE RX INTERRUPTS 
SCOPE ; SCOPE 

AYAC: POPSP2 ;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 
ERROR :RX INTERRUPTED WITH PROCESOR AT SAME 

AYAB sPRIORITY AS THE RECEIVER 


SORORITIES OI IIASA IIA AAI IAI ISI III SII SII IAI SII IAA AAI IAI AAAI AAAI AI ISISIS AS. 
AT73: 735 ; TEST NUMBER 73 
;ADDRESS OF NEXT TEST 

10. ;TEST ITERATION COUNT 

AZAA :SCOPE ENTRY POINT 
FICCI OIA AAI IIIS III IIIS III III I IAI IAI AI AAAI IASI SISISISISISSIASSISSA. 
;TEST THAT RECEIVER DONE BIT CAUSES INTERRUPT WHEN PROCESSOR IS AT PRIORITY 
; ONE wie LOWER THAN THE RECEIVER'S INTERRUPT REQUEST LEVEL 


x 2 8 


tay ;SET RX INTERRUPT TO AZAB 

JSR %7,STRXD ;SET RX DONE BIT 
AZAA: BIC #B1T6,aRXCSR ;DISABLE RX INTERRUPTS 

MOV RXLVL ,PSW ;SET PROCESSOR PRIORITY ONE LEVEL 

SUB #40 ,PSW ;LOWER THAN RECEIVER'S PRIORITY 

at: #B1T6,@RXCSR ;ENABLE RX INTERRUPTS 

ERROR ;RX FAILED TO INTERRUPT WITH PROCESSOR AT 

AZAC ;PRIORITY ONE LEVEL LOWER THAN RECEIVER'S 

AZAB:  POPSP2 sHERE IF INTERRUPT OCCURS 
AZAC: BIC #B1T6,aRXCSR ;DISABLE RX INTERRUPTS 


SCOPE ; SCOPE 


SEQ 00535 
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2569 
2570 III III III ISI IOI III II ISIOIIOIIIOIIOIOIIOIOIIOIOIIOIOI ICTR TOTTI TTT i ii i ttt k 
2571 012610 000074 AT74: 74 ;TEST NUMBER 74 * 
2572 012612 012706 AT75 ;ADDRESS OF NEXT TEST * 
2573 012614 000144 100. ; TEST ITERATION COUNT * 
2574 012616 012624 AABA ;SCOPE ENTRY POINT * 
2575 SRR ERR REE ERE EEE EERE ERE EEE EERE ERE EERE EERE ERR ER EE RE KK 
2576 ; TEST THAT RECEIVER DOES NOT INTERRUPT AFTER THE INITIAL INTERRUPT HAS 
2577 ;OCCURED AND DONE BIT HAS NOT BEEN CLEARED 
2578 012620 004737 014314 JSR %7,STRXD ;SET RX DONE BIT 
2579 012624 104006 AABA: STRXV ;SET RX INTERRUPT SERVICE TO AABC 
2580 012626 012660 AABC 
2581 012630 042777 000100 166242 BIC #BIT6,aRXCSR ;DISABLE RX INTERRUPTS 
2582 012636 052777 000100 166234 BIS #B1T6,aRXCSR ;ENABLE RX INTERRUPTS 
2583 012644 000240 NOP 
2584 012646 104003 ERROR 3RX FAILED TO INTERRUPT 
2585 012650 042777 000100 166222 AASB: BIC #B1T6,aRXCSR ;DISABLE RX iNTERRUPTS 
2586 012656 104012 SCOPE ; SCOPE 
2587 012660 012777 012700 166222 AABC: MOV MAABE ,ARXVTR sHERE IF INTERRUPT OCCURS. CHANGE SERVICE TO 
2588 012666 012716 012674 MOV HAABD ,@%6 ;AABE, SET EXIT POINTER TO AABD 
2589 012672 000002 RTI sEXIT INTERRUPT SERVICE 
2590 012674 000240 AABD : NOP ;0K IF NO INTERRUPT REOCCURS 
2591 012676 000764 BR AABB 
2592 012700 09022626 AABE : POPSP2 ;HERE IF INTERRUPT REOCCURS 
2593 012702 104003 ERROR ;RX REINTERRUPTED AFTER RTI 
tae. 012704 000761 BR AABB 
2596 DOSS IO IIS IIIS IIOISISISI IOI III II III I III IIT TOTTI ITT II AAS INS S SSSA 
2597 012706 000075 AT75: 75 ;TEST NUMBER 75 * 
2598 012710 012762 AT76 ;ADDRESS OF NEXT TEST * 
2599 012712 000144 100. ;TEST ITERATION COUNT * 
2600 012714 012716 ABBA ;SCOPE ENTRY POINT * 
2601 SI RR HR HR Be eB TOIT TOTTI TTT TTI TOR TOR TOTTI TOTTI TT RK RK RIK Kk 
2602 : TEST THAT DATA OVERRUN (RXCSR BIT 12) CLEARS THE DONE BIT (RXCSR BIT 7) 
2603 012716 004737 014314 ABBA: JSR %7.STRXD ;SET RX DONE BIT 
2604 012722 005077 166160 CLR aT XBUF :LOAD TXBUF 
2605 012726 104016 DELAY “WAIT 20 MSECS. 
2606 012730 000024 20. 
2607 012732 017737 166142 001260 MOV @RXCSR,RXCSRT ;SAVE CONTENT OF RXCSR 
2608 012740 105777 166134 TSTB @RXCSR ;SEE IF DONE BIT IS CLEAR 
012744 100001 BPL ABBB = BRANCH IF DONE BIT IS CLEAR 
2610 012746 104003 ERROR 
2611 012750 104016 ABBB : DELAY ;WAIT FOR RX DONE TO SET. 
2612 012752 000310 200. 
2613 012754 005777 166122 TST @RXBUF ;CLEAR DONE BIT IF SET 
2614 012760 104012 SCOPE ; SCOPE 
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SEQ 0055 


MADARA RAARARARAAALASAASARARAAAARAAAAASAARARARARAARAARARAR RRA RARRRRARA RRS RS SD DD | 


AT76: 


76 


; TEST NUMBER 76 
;ADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


a2 2 2 


SEEKER ERAEREAEKAEEEEAEERKEAEKEKERAERRAEAERARAERERAAEARRAAEAERAKAEREREAEAERKR EHH 


TEST ~ ERROR BIT (RXCSR BIT 15) IS ABLE TO CAUSE AN INTERRUPT 


ACBA: 


ACBB: 
ACBC: 


TRXV 


Be 
POPSP2 
SCOPE 


;SET RX INTERRUPT SERVICE TO ACBB. 


%7,STRXD ;SET RX DONE BIT 
%7,STRXD ;SET RX DATA OFLOW 
#B1T6,aRXCSR ;DISABLE RX INTERRUPTS 
PSW ;SET PROCESSOR PRIORITY TO 0 
#B1T6,ARXCSR ;ENABLE RX INTERRUPTS 
uae ;RX ERROR BIT FAILED TO CAUSE INTERRUPT 


sHERE IF INTERRUPT OCCURS. POP STOCK TWICE 
SCOPE 


FEAR EERE EEE KEREREKEKEKAEKERKERKEKEAEARERAEREREREAERKEKAKEEKEKRER ARR E EE 


AT77: 


77 
AT100 
100. 
ANBB 


; TEST NUMBER 77 
sADDRESS OF NEXT TEST 
;TEST ITERATION COUNT 
;SCOPE ENTRY POINT 


SERRE KEKE KEKE REEREKRKEERKEKKERERKEKEEKEKEKEREKKEKEREAKKEKERKKEKEEEKKEKEREKKEKEKKE EK EH 


Aes THAT PARITY —— OPERATES CORRECT. 


ANBB : 
ANBC : 


; INITIALIZE BINARY COUNT PATTERN 


#3112, STXCSR :SET MAINTENANCE BIT 


#100. ,CTRA :GET CHARACTER COUNT 
#8. ,CTRA+1 ;GET CHARACTER BIT COUNT 
5,GTBINP ;GET A CHARACTER (IN R1) 
aTXCSR ;WAIT FOR 
= ; TRANSMITTER READY FLAG 
%1,a@1XBUF ;LOAD TRANSMITTER BUFFER 
@RXCSR ;WAIT FOR 
-~4 ;RECEIVER READY FLAG 
@RXBUF ,CRBUFA ;GET RECEIVED CHARACTER 
20 ;CLEAR WORKING REGISTER 
CRBUFA :LOOK AT CHARACTER BITS 
+4 ;AND COMPLEMENT RO WHEN 
%0 ;A 11S gg ee 
CTRA+1 ;IF RO=1'S, ODDA1"S RECEIVED 
D ;1F ROQ=0° ¥ EVEN #1°S RECEIVED 
#B ITS ,aRXCSR :TEST PARITY INDICATOR 
:BRANCH IF INDICATES EVEN 
%0 :TEST RECEIVED PARITY (IN RO) 
ANBF ;ERROR BRANCH 
ANBG ;OK BRANCH 
%0 ; TEST RECEIVED PARITY (IN RO) 
ANBG :0K BRANCH 
; TYPE PC 
5 ,OACNV :GO TO OCTAL 


-MAIN. MACY11 30A(1052) 17=-MAR-78 13:05 PAGE 57 SEQ 0056 
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2672 013200 001232 CRBUFA 3T0 ASCII 

26735 013202 016424 AWAS ;ROUTINE AND 

2674 013204 000003 3 ; CONVERT DATA 

2675 013206 104015 ERROR1 3s TYP 

2676 013210 016424 AWAS ;DATA 

2677 013212 105337 001246 ANBG: DECB CTRA ;DECREMENT CHARACTER COUNT 

2678 013216 001324 BNE ANBC 

2679 013220 104012 SCOPE 

2680 000077 X=77 

2681 Y=0 

2682 DOIG ISIC IIIS IIS IIISIIIIOIIOIOIUIIOISIOIIIDIOIISISISIIOIOIIIOISIOIIOISIOIOIIOIOIIIOIOI ITO TOTO OTS SOTA 

2683 013222 900100 AT100: 100 sROUTINE #100 * 

2684 013224 013240 AT101 ;ADDRESS OF NEXT TEST * 

2685 013226 000003 7 ; ITERATION COUNT * 

2686 013230 013232 DATO ;SCOPE ENTRY POINT * 

2687 000100 X=X+1 

2688 TORSO II RI IIISIIOISIOIIIOIOIOIOIOIOIOIOIIOIOIIIIIIOISIOIOIIIOIOIOIOIOIOIOIOIOIOIOIOIIOIOIOIUIOIIOIIOIIIOIIOIOIOIOIOIOIUIOIO ot 

2689 013232 004537 003532 DATO: JSR 5 DATTST ;LOAD PARAMETERS & RUN TEST 

2690 013236 000000 0 ;SEE NOTE O FOR DATA TEST PARAMETERS 

2691 000001 Y=Y+1 

2692 DIGIC ISI ICID ICIOIIOIOICIIOIOI IIIS ICI ISO IDIDIIIOIOIOIDIOIOIIOIOIOIOIOIIOIOIIIOOIOIOIIDIOINIOIIOI IODIDE 

2693 013240 000101 AT101: 101 sROUTINE #101 * 

2694 013242 013256 AT102 ;ADDRESS OF NEXT TEST . 

2695 013244 000003 3. ; ITERATION COUNT * 

2696 013246 013250 DAT1 ;SCOPE ENTRY POINT * 

2697 000101 X=X+1 

2698 DOI IID ISIC IOI IIIOIUIOIOIOIDIOIIOIIIOIOIIIOIOIOIOIOIOISIOIOINIISIOITIIOIOITISISIDISITIOIOIISTOII STII TOTO TTT TION 
013250 004537 003532 DAT1: JSR §,DATTST ;LOAD PARAMETERS & RUN TEST 

2700 013254 000001 1 :SEE NOTE 1 FOR DATA TEST PARAMETERS 

2701 000002 Y=Y+1 

2702 DIIGO ISIIIOIUISIUIOIIOIIIOIOIIIO IIIS IOIUIOISIOIIOIOIOISIOITIOIOIOIOIOIIOIDIOIOIOIIOIOIIOIOIIOIOI INITIO IOI I IIE 

2703 013256 000102 AT102: 102 sROUTINE #102 * 

2704 013260 013274 AT103 ;ADDRESS OF NEXT TEST * 

2705 013262 000003  # ; ITERATION COUNT * 

2706 013264 013266 DAT2 s;SCOPE ENTRY POINT . 

2707 000102 X=X+1 

2708 DOROOIOIUIOIOIOIUIOIOIIOIOIIOIOIII ISO IOIOIOIOIOIOIOIOIUIOIOIOIOIOIOIOIOIOI IOI IOIOIOIOIDIOIOIOIOIOIOIIDIOIIUIOIUIDIDIDIDIDIDIDIOIOIOINID 

2709 013266 004537 003532 DAT2: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

2710 013272 000002 2 ;SEE NOTE 2 FOR DATA TEST PARAMETERS 

2711 000003 Y=Y+1 

2712 DOI IOIIOIOIOIOIIIOIUIIDIOIIIDIOIOIOIOIOIIOIIOIOIOIIOIOIIOIOIUIOIDIIOIOIOIIOIDIOIOIOIOIIOIDIOIDIOIDIDIOIDIDIDIDIDIDIOIIOIDIDIINIOI 

2713 013274 000103 AT103: 103 ;ROUTINE #103 * 

2714 013276 013312 AT104 ;ADDRESS OF NEXT TEST * 

2715 013300 000003 Se ; ITERATION COUNT * 

2716 013302 013304 DAT3 SCOPE ENTRY POINT * 

2717 000103 X=X+1 

2718 DOIROIDISIDIIIIOIDIOIUIOIOIOIOIIOUIOIDIIIIOOII ICID IIDIDIOIIOIOISIOIOIIOIDIIOIOOIDIOIIDOIOIIOIUIDIIOII Don tints 

2719 013304 004537 003532 DATS: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

2720 013310 000003 3 ;SEE NOTE 3 FOR DATA TEST PARAMETERS 

2721 000004 Y=Y+1 

2/22 DC OIOISISIIOIIOIDIIIOIIDIIIUIOIUIOIIDOIOIOIOUIOIOIIOIIIDIDIIIIIIOIIIOIIOIOIOIOIOIIIIDIOIIUIOIOISIIIDOINIIODIDO ioitot 

2723 013312 000104 AT104: 104 sROUTINE #104 * 

2724 013314 013330 AT105 ;ADDRESS OF NEXT TEST . 

2725 013316 000003 5. ; ITERATION COUNT * 

2726 013320 013322 DAT4 ;SCOPE ENTRY POINT * 


2727 000104 X=X+1 
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at. a oe ge mon tan 


DATS: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
4 ve! ;SEE NOTE 4 FOR DATA TEST PARAMETERS 
Y-Y+ 


MAPA AAAALALSASAAASSAAALAASAASRASLARASESLASASASLASLALA ALARA AA AAR RR RRARAR ARS AAR A RAS SSS SS | 


AT105: 105 ;ROUTINE #105 * 
AT106 ;ADDRESS OF NEXT TEST * 

: ; ITERATION COUNT * 

DAT5 ;SCOPE ENTRY POINT * 


X=X+1 
SERRE RAKE EEE REE EEEEREKEKREKER AEE EERE REE H 
DATS: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

5 . ;SEE NOTE 5 FOR DATA TEST PARAMETERS 

Y-Y+ 


—ASAAAASAAAASLASAAAAAARAARAARAASAAASASAA SASL A AAR ARAASAA RRA SARA RRA RAR RAR EAA RRR RRR SSDS SSD 


AT106: 106 ;ROUTINE #106 7 
AT107 ;ADDRESS OF NEXT TEST * 
Le ; ITERATION COUNT * 
DAT6 ;SCOPE ENTRY POINT * 


X=X+ 


SRR ERE KEKE EEE EKER EKER REE EKER EEE EAE EEE 


DAT6: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
6 , ;SEE NOTE 6 FOR DATA TEST PARAMETERS 
Y=Y+ 

SOIC ICICI SOIR OOO IIIA IAAI II IIISIISIII III IAAI AIAN ASSIA A IAAI ISI IIASA AIA AAI AISISIASIAISAA 

AT107: 107 sROUTINE #107 * 
AT110 sADDRESS OF NEXT TEST * 
a ; ITERATION COUNT * 
vai ;SCOPE ENTRY POINT * 
X=X+ 


SR ROI IOI SSSI IIA ASASAIASAISISISAISS III I III AIA AAA IAAI AIA AI ISISIISISASASIAISI AAA A 
DAT7: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

7 : ;SEE NOTE 7 FOR DATA TEST PARAMETERS 

Y=Y+ 


MARSA ALASAARALAAASASASAARASLASAASLAAAR AAA ASA AAA AR AAL ARRAS AR ARS RAR RARRA RAR ARR RRA RSS SS SD 


AT110: 110 ;ROUTINE #110 ° 
AT111 sADDRESS OF NEXT TEST * 
ms ; ITERATION COUNT * 
a :SCOPE ENTRY POINT * 
X=X+ 


oe mE Sep EO ale ee ain tage a en rie EE SETAE 
DAT10: JSR 5 .DATTST ;LOAD PARAMETERS & RUN TEST 
10 ;SEE NOTE 10 FOR DATA TEST PARAMETERS 


Y=Y+1 
FERRER KEKE EKER KEE EEE ERA RAKREKEKEKRERARKEKRERKAEEKEKERAEKEEAE EERE KEE 
ATVi1= T17 sROUTINE #111 * 
AT112 :ADDRESS OF NEXT TEST * 
3. : ITERATION COUNT * 
ahd :SCOPE ENTRY POINT * 
X=X+ 


a ae, - haere” (atk Oetie & an et Ce 
DAT11: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

17 : :SEE NOTE 11 FOR DATA TEST PARAMETERS 

Y-=Y+ 


J AAR AREA KAERKAEAAAEAEAKEARKEEAERAERREAAREAERERAAAEAEAERAEKERE RARE EE EH 


AT112: 112 ;ROUTINE #112 . 


SEQ 0057 
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AT113 sADDRESS OF NEXT TEST * 
. a ; ITERATION COUNT » 
oo :SCOPE ENTRY POINT . 
X=X+ 


'MOARARARAAAARARRAASLARLARARAARAARARAASASRASAARARASASAAAARARARARARARA RA RARRA RA RAR RRA SRA SSD DS | 


DAT12: JSR 5 ,DATTST ;LOAD PARAMETERS & RUN TEST 
12 :, ;SEE NOTE 12 FOR DATA TEST PARAMETERS 
Y=Y+ 

OSS ISISIDIIISIUIOIIIIIOISIOIOIOIOIOIOIOICIDIDIIIISISISIOIOIOIOIOIOIOIIII III III III ISI IIDISIS ISIE III i 

AT113: 113 ;ROUTINE #113 * 
AT114 ;ADDRESS OF NEXT TEST * 
3s ; ITERATION COUNT * 
eee ;SCOPE ENTRY POINT * 
X=X+ 


MAAS AAAAARARARAAARAASAARRAARARARARARARSAASASAARARASR SAAR RRA RAR ARR RAR R RR RR RR RAR RRR RRS SSS SD | 


DAT13: JSR 
13 
Y=Y+1 


5,DATTST ;LOAD PARAMETERS & RUN TEST 


;SEE NOTE 13 FOR DATA TEST PARAMETERS 


MAAS ReRAAAAAAARARASRARAARARARASRARAASAAA SAAR AAR ARRAS SR ARRA RAR RRA RRR RRR ARR RRR A RRS SS SD | 


AT114: 114 ;ROUTINE #114 * 
A¥115 ;ADDRESS OF NEXT TEST * 
3. ; ITERATION COUNT * 
ail ;SCOPE ENTRY POINT * 
X=X+ 


SAREE ARENA EEE ERKEAERAK ARERR AAERAAKRAEAAEKAAAEAAKEKAEKRAKKAKRERAAEAARARERE RES 


DAT14: JSR 5, DATTST ;LOAD PARAMETERS & RUN TEST 
14 : :SEE NOTE 14 FOR DATA TEST PARAMETERS 
Y=Y+ 

SOI III III III OIC IOIOIOIOIOIOIROIOIOIOIOIOIOIIOIOIIOIO TOTTI OTT OT TTT TT TTT AAAI ISSISISSI SII IIASA AAA ASAI SAAC SI AAACN. 

AT115: 115 ;ROUTINE #115 * 
AT116 sADDRESS OF NEXT TEST * 
a ; ITERATION COUNT * 
whe. ;SCOPE ENTRY POINT * 
X=X+ 


SOAIOIIOII GI ISISIUIUISIDIOIOISIOICIIIDIOIDIDIDIOIDIOIOISIOIDIOIOIOIOIOIOIOIIOIOIOIOTOIOTOI IIIS ISIS OTTO OTT I I I I I TOT TI EI I IIE 
DAT15: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
15 ;SEE NOTE 15 FOR DATA TEST PARAMETERS 


Y=Y+1 
DOIOIOIOIOIOIOISIIOIII IUCR OIIOIUIOIUIOIIDIOIUIIIOIIIIOIIIOIIOIOIIUIOIOIOIUIOIIIIOO IO no i oii i ttt 
AT116: 116 ;ROUTINE #116 * 
AT117 sADDRESS OF NEXT TEST . 
3. ; ITERATION COUNT * 
cake SCOPE ENTRY POINT * 
X=X+ 


UIRIOIOIIOI IOI ISIDIOIUIOIDIOIOIOIOIOIOIDIDIDIOIOISIOIOIOIDIOIOIOIOISIOIOIOI IOI DIOS IIIT SII ISIGI ISI SIDING I IDIDID IEE 
DAT16: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
16 ;SEE NOTE 16 FOR DATA TEST PARAMETERS 


Y=Y+1 
SRA RARER ARERR EEE EEE AAA RAKAAEAEAEAAAEARAEAEARAAAEERAAEAERARRAEE EERE EE ES 
AT1%7: 17 sROUTINE #117 . 
AT120 sADDRESS OF NEXT TEST * 
3. ; ITERATION COUNT « 
cake 9 ;SCOPE ENTRY POINT * 
X=X+ 


RAeeaAAASARASRAASARASLARARAARARAARARSA SARA ARAR ARR R RR RRR RR RR RRR RRR RRR RR RRR RR RRR RRS ES SO | 


DAT17: JSR 5 DATTST :LOAD PARAMETERS & RUN TEST 


SEQ 0058 
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17 ;SEE NOTE 17 FOR DATA TEST PARAMETERS 
yYy-Y+ 
ST TT RRR EEE EERE REE ERE EREEREREREEEEEER EERE REE EERE Ee ee eee 
AT120: 120 sROUTINE #120 * 
AT121 ;ADDRESS OF NEXT TEST * 
Ze ; ITERATION COUNT * 
oe : SCOPE ENTRY POINT * 
X=X+ 


SEAR ERAAEAEAEAEAER ARERR AREKRAAEARAARAAARAKKAREAAARAAAARAAAAAAEARAARARARKARA EE 


DAT20: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
20 ;SEE NOTE 20 FOR DATA TEST PARAMETERS 
Y=Y+ 
SO SOIOIOIOIOISISISISIOIOIIOIOIUIDIOIDIDISISISISIIOIOIOIOIOITIOISII ICICI OIOISIOI SITS ISI SIS SII TIT T OTT OTST I ET TOTTI TI 
AT121: 121 sROUTINE #121 * 
AT122 ;ADDRESS OF NEXT TEST * 
Fe ; ITERATION COUNT * 
DAT21 ;SCOPE ENTRY POINT * 


X=X+1 
SEERA AAAAEAEEE RRA EKRAERARAARAKARAAKEAAERAAEAKRARAAAAEARAEAARRRR EEE EH 
DAT21: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

21 , ;SEE NOTE 21 FOR DATA TEST PARAMETERS 

Y-Y+ 


MADARA SRAAAASAAASAARAAASRARARRARAAARAASAAARAL AS ASR ASARARASAR RAR AR RRARRRR RAR AR RRAR RRR RS SSS DDD 


AT122: 122 ;ROUTINE #122 " 
AT1235 ;ADDRESS OF NEXT TEST * 
. » ; ITERATION COUNT * 
DAT22 ;SCOPE ENTRY POINT * 


X=X+1 
SERA REAR EAE AER KRERKEAKEAEAARRARAEAEAEREKKERAEAAAEAEREREAEREKEREE RK AEE ER 
DAT22: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

22 SEE NOTE 22 FOR DATA TEST PARAMETERS 


Y=Y+1 
DOI IIUIIOIIOI I IUIDIDIOIIOIOIIOIOIOIOIOIOIIIIDIDIOIOIOIUII IIIS IO IOIOIOIUIIIOIUIOOIDIDISIOIDIIIOIOIOIDIOI IORI 
AT123: 123 ;ROUTINE 4123 * 
AT124 ;ADDRESS OF NEXT TEST * 
Bis ; ITERATION COUNT > 
oates ;SCOPE ENTRY POINT * 
X=X+ 


CIO IUIIIUIO IO IOC ISIOISIUIOISIOIIDIOIIOIOI UII IOIIOSOIGIOISIISIOISIOIITISISIGIOIOIISISIISIOITISIOI IID ISIOISISIOIISIOIGIDIC 
DAT23: ser 5,DATTST ;LOAD PARAMETERS & RUN TEST 


;SEE NOTE 23 FOR DATA TEST PARAMETERS 


Y=Y+1 
SEAR KERR KERR EEEEKEKKE ERE RERKERKEAAEKEERARAKEREREKEKEAEAEEEREEKKERE ERR EAEREREKKE EE EH 
AT124: 124 sROUTINE #124 * 
AT125 ;ADDRESS OF NEXT TEST * 
a ; ITERATION COUNT * 
DAT24 ;SCOPE ENTRY POINT * 


X=X+1 
SEERA RARER EEE AEE AAR ARAAAAAAEAAAAEAAEKERA EEK ERAEERAEREKREE ERE REE EH 
DAT24: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

24 >SEE NOTE 24 FOR DATA TEST PARAMETERS 


Y=Y+1 
SEERA AREER EEERA RAE AAAEAEREEAEA RARER RE ERE EEE 
AT125: 125 sROUTINE #125 * 
AT126 sADDRESS OF NEXT TEST * 
De ; ITERATION COUNT * 


SEQ 0059 





b>brr Pr PPP PrP PrP PrP PPrPrPrrrrrrrrrrrrrrrrrrrrrr vr wr rrrrrrrrrvrvrrrvrrrr ms 
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ree ;SCOPE ENTRY POINT * 
xX=X+ 
SERRA AAAAAAAAAARARAAAAAAAAAAAAKRARAAERARAKARRAARARAARAAAAAKAAARAAARARAERAAEKERERARE ED 
DAT25: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

25 ' ;SEE NOTE 25 FOR DATA TEST PARAMETERS 

yY-Y+ 


'MARAAARRARRAAASRASRARARARARARARARARARARARARARSAARARR AAR RAR RAS RAR ARARRARR RRA RAR RASS SS DD | 


AT126: 126 sROUTINE #126 * 
AT127 :ADDRESS OF NEXT TEST & 4 

, ; ITERATION COUNT * 

DAT26 :;SCOPE ENTRY POINT * 


X=X+1 
SAAR AARAAARERAAAAKAAEAAERA AERA ERR AAKRAAAAARKEREAKAKEKERAAAEARAE EERE ERR EERE 
DAT26: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

26 , ;SEE NOTE 26 FOR DATA TEST PARAMETERS 

yY-Y+ 


ehh ene ee eee RRR EERRRRRRRRRRARRARR AR ARRAS AREA RAR ARR RAR RARER RRR RRR ARR ARR RRS SSS SD SD 


AT127: 127 ;ROUTINE #127 * 
AT130 ;ADDRESS OF NEXT TEST * 
5. ; ITERATION COUNT ® 
DAT27 ;SCOPE ENTRY POINT * 


X=X+] 


MAAR ARAAARALALARARAARARAASARARASARASR AAS ALAS AAA ARRAS ARARRRAR RRR ARRAS ARRAS SSS SS 


DAT27: JSR 5.DATTST ;LOAD PARAMETERS & RUN TEST 
27 , ;SEE NOTE 27 FOR DATA TEST PARAMETERS 
Y-Y+ 
SEAR AAAAAAKAAAE AEE AERA AREA AARAAEARKERAAAKEREREAAKE REAR E KEKE EEE 
AT130: 130 ;ROUTINE #130 * 
AT131 : ADDRESS OF NEXT TEST . 
Te : ITERATION COUNT . 
DAT30 : SCOPE ENTRY POINT te 


X=X+1 
SAAR RRA EE EERE AREER ARAKEAERAERKERAARERAEARAEERAEREREARAEKERAR EE 
DAT30O: JSR 5 DATTST ;LOAD PARAMETERS & RUN TEST 

30 ;SEE NOTE 30 FOR DATA TEST PARAMETERS 

Y-Yre 


'MARLALASAREALAARASARAAAASARASRARSARARASARAS AAR ASASARASASAA SAR ARARARARRRRR ARRAS RRA SDSS DSS | 


AT131: 131 sROUTINE #131 * 
AT132 :ADDRESS OF NEXT *cST ~ 
Bis ; ITERATION COUNT * 
watheg :SCOPE ENTRY POINT * 
X=X+ 


MASSA AASZALALASZASSAAAASARARARARARRRASAR AAA RLASAARAAARARAS ARERR AR ARARARAR ARR RRR RRR ASSAD ESS S| 


DAT31: JSR 5 DATTST =LOAD PARAMETERS & RUN TEST 
3 >SEE NOTE 31 FOR DATA TEST PARAMETERS 
-yV+ 


'—WALAAARALAAASAALASLAARARARAAAAARAS EAS AARASRARAAAA AAR RRR RRR ARR RR RRR RRA RRRRRRAR RSS SS S| 


AT132: 132 ROUTINE #132 * 
AT133 ;ADDRESS OF NEXT TEST * 

: ; ITERATION COUNT * 

DAT32 ;SCOPE ENTRY POINT * 


X=X+7 
SAREE AAA EKER EERE AAREAAAAAEKERAEREREARAEAEAREARAEARERAERE REAR REE ED 
DAT32: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

32 ;SEE NOTE 32 FOR DATA TEST PARAMETERS 

Y-Y+ 


SEQ 0060 
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014014 
014016 
014020 
014022 


014024 
014030 


014032 


014050 
014052 
014054 
014056 


014074 


014076 
014102 


014104 
014106 
014110 
014112 


014114 
014120 


17-MAR-78 
13:04 


003532 


003532 


003532 


003532 


003532 


13:05 PAGE 62 
SARA RAERRRARAERAEARARAEAARAEAEARRAE ERA RAEAAAAAARARAEAAEKARARAAAKEKRAARAAERAERARRERERA AAAS 
AT133: 133 sROUTINE #133 * 
AT134 sADDRESS OF NEXT TEST * 
De ; ITERATION COUNT * 
cathe ;SCOPE ENTRY POINT * 

X=X+ 


SEERA RARAAAAAERARRAREREEREKKARAARAEAAARAARAAERAARERARAARRAERARAAAKRAARARAERERRARA REED 


DAT33: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
sl ' ;SEE NOTE 33 FOR DATA TEST PARAMETERS 
Y-=Y+ 


'MAAAARASARARASRARARASLERAARARASASARARAS ESAS ASLASA SAAR AR ARA RAR ARRAS RAR RRRR RARER RRA RRR RARE SS SD | 


AT134: 134 ;ROUTINE #134 * 
AT135 ;ADDRESS OF NEXT TEST * 

° ; ITERATION COUNT * 

DAT 34 >SCOPE ENTRY POINT * 


X=X+] 
SEAR AKEAEAAAARERAEARAAEREAARARAERAKERAAAKAEAKAEKAARERAERARAEAERAAEARERRERAR EE EH 
DAT34: JSR 5 DATTST ;LOAD PARAMETERS & RUN TEST 

34 ' ;SEE NOTE 34 FOR DATA TEST PARAMETERS 

y-=Y+ 


MAA AARARARARASLARASAARAARARASAASASRAARAASAAAA AAA RAS AR ARR RAAAARARARRAR RR RA RAR RRR RDS SS SD | 


AT135: 135 ;ROUTINE #135 * 
AT136 ;ADDRESS OF NEXT TEST * 

. ; ITERATION COUNT * 

DAT35 ;SCOPE ENTRY POINT * 


X=X+1 
SERRE ERE ERAERREKEARE AEA RAAAEREAAKAKEREAAEKEKKEKEKAERAKEKERKAEAERAER RAE EERE 
DAT35: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 

35 , ;SEE NOTE 35 FOR DATA TEST PARAMETERS 

y¥sV 


SEAR ARERR AKER ERE REE AKER EKER KEKE EER 


AT136: 136 ;ROUTINE #136 ° 
AT137 sADDRESS OF NEXT TEST * 

. ; ITERATION COUNT * 

DAT 36 ;SCOPE ENTRY POINT * 


X=X+7 


J AAR RARER EERE REE AEKARAKKEAERARAEKKKEAEAEKEEAERAEE AREER EEE EH 


DAT36: JSR 5,DATTST ;LOAD PARAMETERS & RUN TEST 
~ ' ;SEE NOTE 36 FOR DATA TEST PARAMETERS 
=V¥¢ 
J RARER REAR EAE AERA AAA KEKE EERE EE 
AT137: 137 ;ROUTINE #137 * 
AT140 sADDRESS OF NEXT TEST * 
3. ; ITERATION COUNT * 
DAT 37 ;SCOPE ENTRY POINT * 


X=X+1 
FREAK EERE AEE AREER EEA EEE ERA RARKKEKR ERE ES 
DAT37: JSR S,DATTST ;LOAD PARAMETERS & RUN TEST 

37 , :SEE NOTE 37 FOR DATA TEST PARAMETERS 

Y-Yr+ 


SEQ 0061 
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3002 
3003 


3004 
3005 


014122 
014124 
014126 
0141530 


014132 


014244 


014246 
014254 


306 
014310 
014312 


014314 


17-MAR-78 1 


000140 
014236 
000012 
014152 


012777 
012777 
004 


000141 
177777 
000144 
014246 


012777 


023737 
101424 
023737 
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164720 
003232 
001232 
177740 
164676 
164664 
164660 


001246 


000004 
164560 


001246 
001246 


164744 
164732 


001246 


001232 


001230 


164630 
164616 
164616 


000000 


164562 


001250 
001252 


13: 


OS PAGE 63 SEQ 0062 


AT140: 140 ; TEST NUMBER 140 

AT141 ;ADDRESS OF NEXT TEST 

10. ;TEST ITERATION COUNT 

;SCOPE ENTRY POINT 

DOO ISIOI II IOIIIOIDIOIDIOIOIOIOIIOI III DIOI IIIS IIIT OTT IT TT OTTO I TTT TOTO TTT TTT TE 
=DATA TEST USING JUMPER CONNECTOR. TX SPEED = 11, RX SPEED = 11, 
;CHAR LENGTH = 11, STOP CODE = 1. USES SPECIAL BINARY COUNT PATTERN 
=FOR DATA. NO INTERRUPT. 


MOV #430 ,aTXCSR 
MOV gt aa 


STOP CODE = 1 


;SET TX SPEED = 11, 
= 11, CHAR. LENGTH = 11 


;SET RX SPEED 


JSR 7,1 ; INITIALIZE BINARY COUNT PATTERN 
APBA: MOV ri000. NCTRA ;SET CHARACTER COUNT TO 1000 
APBB : iE a ;WAIT FOR TX READY 
L 
JSR 7,GTBINP :GET BINARY CHARACTER 


MOVB %1,CRBUFA ;SAVE CHAR IN CRBUFA AND 
BIC #177740,CRBUFA ;MASK OFF ALL BUT 5 LSB. 
MOVB %1,aTXBUF sLOAD CHAR. 

TSTB @RXCSR sWAIT FOR RECEIVER 


BPL 4% >TO RECEIVE CHARACTER 

MOVB @RXBUF , CRBUF :LOAD RECEIVED DATA INTO CRBUF 
DAT CHK ; CHECK DATA 

DEC CTRA :TESTED 1000 CHARACTERS 

BNE APBB ;BRANCH IF NOT 

SCOPE :YES. SCOPE 


[OSIOIOIAISIOIIIOIOIOIOIIOIOIOIOIOIOIOIOISIOIOIOIOISIOIOIOICIOIOIOIIOIII IIIT TI III III ICICI STITT STOTT TTT OT TT TT TE 
AT141: 141 ;TEST NUMBER 141 
sADDRESS OF NEXT TEST 
:TEST ITERATION COUNT 
AQBA ;SCOPE ENTRY POINT 
SURI II IICIOIOIIOIOIOIOIOIOIOIOIOIOIOI IOI ICICI ORI OR RTT TTI SAIASIISAIIISSIAI ASAI AASIACACAC 
;TEST THAT WHEN RXCSR BIT 1 IS SET THAT THE OUTPUT DATA LINE 
;1S PULLED TO A SPACE. 


AQBA: MOV #B1T2,aTXCSR 
MOV #B1T1,@RXCSR 


;SET MAINTENANCE BIT IN TXCSR 


MOV #377 ,aT XBUF ;LOAD BUFFER 
TSTB @RXCSR sWAIT FOR RECEIVER 
BPL 74 ;TO RECEIVE CHARACTER 
“A ae : CHARACTER RECEIVED SHOULD BE 0 
.+ 
ERROR ;CHARACTER OTHER THAN 0 
SRESET ; ISSUE RESET 
SCOPE 
; SUBROUTINE TO SET RXCSR DONE BIT. 
STRXD: BIS #B1T2,aTXCSR :SET se BIT. 
CLR aT XBUF :LOAD T 
DELAY ; DELAY 200 MSECS. 
er 


R %7 sEXIT. 
; SUBROUTINE TO CHECK THAT CTRA THROUGH CTRD CONTAIN DESCENDING VALUES. 
CMPT: CMP CTRA,CTRB 

BLOS CMPTA 

CMP CTRA,CTRC 
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014352 


014420 
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101420 


000207 
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001246 
001250 
001250 
001252 
000002 


001254 
001252 
001254 
001254 


CMPTA: 
CMPTB: 


13:05 PAGE 64 


CMPTA 
CTRA,CTRD 
CMPTA 

Sa CTRC 
CMPTA 

Bh CTRD 
CTRC,CTRD 
CMPTB 

#2 ,a%6 

47 


SEQ 0065 





PrPrPrPrrrrPrrPrrrrrrrrrrrrrrrrrrrrrrrrPrrrPrrPrrrrrrrrrrrrrrrrr os: 
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3069 
3070 pee eekekeee 
3071 ;PRG1 = TRANSMITTER SCOPE LOOP 
3072 See e 
3073 014422 104000 PRG1: TYPE ; TYPE PROGRAM TITLE. 
3074 014424 016043 PITIT 
3075 014426 004537 003002 JSR 5,LINSEL ;GO GET LINE # FROM USER 
3076 014432 004737 014740 JSR %7,SETPAR ;GO SET PARAMETERS. 
3077 014436 104000 TYPE ; TYPE SELECT CHAR AND DELAY. 
3078 014440 016275 SELCAD 
3079 014442 000000 HAL T ;WAIT FOR USER. 
3080 014444 113737 177570 014462 PRGIA: MOVB SR,PRG1B ;DELAY COUNT [0 PRG1B. 
3081 014452 113777 177571 164426 MOVB SR+1,a7 XBUF ;LOAD TXBUF. 
3082 014460 104016 DELAY ;DELAY # OF MSECS. SET AT SR. 
3083 014462 000000 PRG1B: OPEN 
3084 014464 000767 BR PRGIA ;REPEAT. 
3085 Seek hhhh 
3086 ;PRG2 - RECEIVER SCOPE LOOP. 
3087 eee 
3088 014466 104000 PRG2: TYPE ; TYPE PROGRAM TITLE. 
3089 014470 016103 P2TIT 
3090 014472 004537 003002 JSR 5,LINSEL ;GO GET LINE #4 FROM USER 
3091 014476 004737 014740 JSR %7,SETPAR 3;GO SET PARAMETERS. 
3092 014502 104000 TYPE ; TYPE SELECT CHAR AND DELAY. 
3093 014504 016275 SEL CAD 
3094 014506 000000 HALT ;WAIT FOR USER. 
3095 014510 004737 014772 PRG2A: JSR 7,STPARB ;RELOAD PARAMETERS 
3096 014514 052777 000004 164362 BIS #BIT2,aTXCSR SET MAINTENANCE BIT. 
3097 014522 113737 177570 014540 MOVB SR,PRG2B ;DELAY COUNT TO PRG2B. 
3098 014530 113777 177571 164350 MOVB SR+1,a7 XBUF ;LOAD TXBUF. 
3099 014536 104016 DELAY :DELAY # OF MSECS. SET IN SR. 
3100 014540 000000 PRG2B: OPEN 
3101 014542 017700 164334 MOV @RXBUF , %0 ;RXBUF CONTENTS TO RO. 
3102 014546 000005 RESET ;DISPLAY CONTENTS OF RXBUF (IN RO), 
3103 014550 000005 RESET ;BY ISSUING 5 RESET INSTRUCTIONS 
3104 014552 000005 RESET 
3105 014554 000005 RESET 
3106 014556 000005 RESET 
3107 014560 000753 BR PRG2A 
3108 Seen eR hhh 
3109 ;PRG3 - SINGLE CHARACTER MAINTENANCE MODE DATA TEST. 
3110 Seek hhh 
3111 014562 104000 PRG3: TYPE ; TYPE PROGRAM TITLE. 
3112 014564 016604 P3TIT 
3115 014566 004537 003002 JSR 5,LINSEL ;GO GET LINE #4 FROM USER 
3114 014572 004737 014740 JSR %7,SETPAR ;SET PARAMETERS. 
3115 014576 104000 TYPE :TYPE: SELECT CHARACTER. 
3116 014600 016750 SELCAR 
3117 014602 000000 HAL T 
3118 014604 113737 177570 001232 PRG3A: MOVB SR, CRBUFA MOVE DATA CHAR TO CRBUFA,. 
3119 014612 004737 014656 JSR %7,MOUTIN ;GO OUTPUT, RECEIVE, AND CHECK DATA, 
3120 014616 000772 BR PRG3A 
3121 seek h hhh 
3122 ;PRG4 - SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST. 
3123 saat he eee 
3124 014620 104000 PRG4: TYPE ; TYPE PROGRAM TITLE. 
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014736 
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003002 
014740 


014656 


000400 


164210 


000004 
001232 
001234 
164154 


164150 


177570 


164200 
164174 
001232 


001230 


13:05 PAGE 66 


P4TIT 
JSR 5 LINSEL 
JSR %7, SETPAR 
JSR %7, INBIN 
PRGGA: JSR 47. GTBINP 
MOVB  %1,CRBUFA 
JSR %7.MOUT IN 
BR PRGGA 
: SUBROUTINE TO OUTPUT, RECEIVE, 
MOUTIN: BIT #B1T8,SR 
BNE +4 
STALL 
STB. ~— @TXCSR 
BPL = 
BIS #BIT2,aTXCSR 
MOV CRRUF A, aT XBUF 
BIC CARMSK , CRBUF A 
TSTB ~— @RXCSR 
BPL = 
MOV @RXBUF , CRBUF 
DAT CHK 
RTS 47 


;GO GET LINE # FROM USER 
;SET PARAMETERS. 

; INITIALIZE BINARY COUNT. 
;GET BINARY Pt as: 


;SAVE AT CRBUFA 
;GO OUTPUT, RECEIVE, AND CHECK DATA. 
:REPEAT. 


AND CHECK DATA WITH seteainetrck: BIT SET. 


;SEE IF BIT 8 IS SET 


BRANCH IF SET. 
“WAIT FOR TX READY. 


;SET MAINTENANCE BIT. 

;LOAD TXBUF. 

;MASK OFF NON-EXPECTED BITS. 
;WAIT FOR RECEIVER DONE BIT. 


;MOVE CHAR IN RX BUFFER TO CRBUF. 
2p EXPECTED AND RECEIVED DATA 
SEXIT. 


DO A RANDUM STALL. 
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177570 
003300 


000020 


000400 
000010 


000020 
000020 
000004 
000010 
000010 
177400 
000002 
177700 
002000 
000001 


177740 
001000 


000001 
177600 


001266 


001266 


164074 
001266 


164056 


164044 
001266 


001266 
001234 
163766 
001266 


001234 
163742 


001266 
001234 
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SEQ 0066 


; SUBROUTINE TO SET STOF CODE,SPEED, AND CHARACTER LENGTH PARAMETERS SET 
;IN SR INTO TXCSR AND RXCSR. 


SETPAR: 


STPARB: 


STPARA: 


TYPE 
SELPAR 


SR,SRT 
5 ,OACNV 


#BIT4,SRI 
+10 


#BIT8,aTXCSR 
#B1T3,SRT 
.+16 
#BIT4,aTXCSR 
#B1T4,@RXCSR 
a eSRT 


ABIT3,aTXCSR 
#B1T3,@RXCSR 
#177400, CARMSK 
4 Ua 


STPARA 
#177700, CARMSK 
#B1T10,@RXCSR 
#B1TO,SRT 


.+16 
#177740, CARMSK 
a 


ABITO,SRT 
p 


STPARA- 
#177600, CARMSK 
STPARA~10 


; TYPE: SELECT PARAMETERS. 


sWAIT FOR USER. 
:SR TO SRT. 


;SEE IF SR BIT 4 IS SET. 
;BRANCH IF NOT SET. 
;SET. SET STOP CODE TOA 1. 
;SEE IF SR BIT 3 IS SET. 
;BRANCH IF NOT SET. 

;SET BIT4 IN TXCSR AND RXCSR 
;(MSB OF SPEED hs BITS.) 
:SEE IF SR BIT 2 IS SET. 
:BRANCH IF NOT SET. 

;SET BITS IN TXCSR AND RXCSR 
;(LSB OF SPEED SELECT BITS). 
:SET CHARACTER MASK TO 8 BITS. 
;SEE IF SR BIT 1 IS SET. 
;BRANCH IF NOT SET. 
;CHANGE CHAR MASK TO 6 BITS 


=SET RXCSR BIT 10(MSB OF CHAR LENGTH BITS. 


;SEE IF SR BITO IS SET 
;BRANCH IF NOT SET. 
;CHANGE CHAR MASK TO 5 B 


: SET _RXCSR BIT9 (LSB OF eCHAR LENGTH BITS). 


:SEE IF SR BITO IS SET. 
;BRANCH IF NOT SET. 
;CHANGE CHAR MASK TO 7 BITS. 
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3185 
3186 > VECTOR ASSIGNMENT TABLE 
3187 015160 000300 VECTAB: 300 s;LINE 0 VECTOR 
3188 015162 000310 ;LINE 1 VECTOR 
3189 015164 000320 320 |. 3 oe 
3190 015166 000330 350 ut ea i 
3191 015170 000340 340 o> a 
3192 015172 000350 350 Bebe ss oa 
3193 015174 000360 360 Ree. eee 
3194 015176 000370 370 BA cy: 
3195 015200 000400 400 ipo. Es 
3 015202 000410 410 ea re 
3197 5204 000420 420 Bay | Soh 
3198 015206 000430 430 ta | Tae 
3199 015210 000440 440 Bea, Tae 
3200 015212 000450 450 fe te 
1 015214 000460 450 Bevge.. Tee 
3202 015216 000470 470 e toe We tne 
3203 015220 000500 500 “Wess. Byes 
3204 015222 000510 510 ey 4 Bere 
3205 015224 000520 520 Se ee 
015226 000530 550 i ee 
3207 30 000540 540 a 
015232 000550 550 eet « Biles 
09 015234 000560 560 a aa 
3210 015236 000570 570 Li ae 3 
3211 015240 000600 600 eke pe 
2 015242 000610 610 nee. Sine 
32135 015244 000620 620 co ee et 
3214 015246 0006350 630 ee > Born 
3215 015250 000640 640 ee. By 
3216 015252 000650 650 SS ae 
3217 015254 000660 660 a ete 
3218 015256 000670 670 aie. Maes. 
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015260 


050045 


052117 


044440 


052040 
050040 
020040 


020040 
051501 


020040 
0511235 


020040 


020116 


:ASCII MESSAGES 
EMO: ASCII ‘SP 
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APNUMB: .ASCII 


ATNUMB: 


APC: 
POTIT: 


ATXCSR: 


ATXSB: 


ATXWAS: 
ARXCSR: 


ARXSB: 


ARXWAS : 
ETXTIM: 


ESTPCD: 


ETCLGT: 


ASCII 
ASCII 
ASCII 


ASCII 


ASCII 


ASCII 
ASCII 


ASCII 
ASCII 
ASCII 


ASCII 
ASCII 


ASCII 


ASCII 


Y T 1 
4 PC ' 
, a’ 


"ZZPRGO = INPUT-OUTPUT LOGIC TESTS. ° 


"DISCONNECT DC11 FROM MODEM. %' 


"AND CONNECT JUMPER TO CABLE.%a" 


"TXCSR S/B: ° 


’ WAS: ° 
qv a’ 
"RXCSR S/B: ' 

, WAS: ' 
e a’ 


"TX SPEEDS NOT IN ASCENDING ORDER.a" 


"TIME FOR 2 STOP CODE OP LESS THAN FOR 1.@" 


"TX CHAR LENGTHS NOT IN DESCENDING ORDER.@" 


SEQ 0068 
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3276 015706 042504 041523 047105 
3277 015714 0445 04 047440 
3278 015722 0421 051105 04 


2 0056 
$San 015730 054122 051440 042520 ERXTIM: .ASCII ‘RX SPEEDS NOT IN ASCENDING ORDER.@' 


84 040056 
44 ARM: 054122 041440 040510 ERCLGT: .ASCII ‘RX CHAR LENGTHS NOT IN DESCENDING ORDER.@' 


0 020122 042514 043516 
3287 044124 020123 04 
32 016014 020124 047 042040 


. 
3292 0160435 5 050045 043522 PITIT: .ASCII ‘"%ZPRG1 - TRANSMITTER SCOPE LOOP@" 


016 10 
3298 016103 045 050045 043522 P2TIT: .ASCII ‘“%XPRG2 - RECEIVER SCOPE LOOP@' 


3302 016132 047517 040120 
3303 016140 051445 052105 050040 SELPAR: .ASCII ‘%SET PARAMETERS IN SR AS FOLLOWS:' 
3304 016146 051103 046501 052105 


3306 016162 051440 020122 051501 


308 7 
3309 016201 045 051123 020064 ASCII ‘%SR4 = STOP CODE%SR3 AND 2 = SPEED" 


2505 
3315 016243 045 051123 020061 -ASCII ‘%SR1 AND 0 = CHAR LENGTHZQ" 


020060 
3317 016256 020075 044103 051101 
3318 016264 046040 wad 052107 


j 
3320 016275 045 042523 ar atn SELCAD: .ASCII ‘%SET TEST CHAR CODE IN SR15-SR8, SET DELAY TIME IN SR7=SRO.a' 


$367 016362 026467 051123 027060 
3331 016571 040 042040 052101 ERDAT: .ASCII ‘° DATA ERR S/B: ° 
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016376 
016404 


020101 
051440 
02 


044440 
051123 


051105 
041057 


042440 
051120 


031440 


020122 
020072 
053440 


020124 


042116 


031507 
046107 


052040 
032107 


052123 


040522 
051522 


052040 
044105 
042117 
051440 
030122 


020104 
047040 
024470 
020117 
033455 


AASB: 


AWAS: 
AINPRG: 
ASETSR: 


AINCRT: 


APGEND: 


PSTIT: 


P4TIT: 


PARMTS: 


APARM: 
_LCAR: 


LDLINE: 
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ASCII 


ASCII 
ASCII 
ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


ASCII 
ASCII 


ASCII 


; WAS: ' 


*%?9' 


'%SET DESIRED SR OPTIONS. NORMAL OPERATION ° 


"IS WITH SR = 0000000" 


"ZINCORRECT ROUTINE SELECTED.a' 


*%ZPROGRAM END.a" 


"%Z%ZPRG3-SINGLE CHAR MAINT MODE DATA TESTa" 


"%Z%PRG4-SPEC BIN COUNT MAINT MODE DATA TESTa@’ 


"ZPARAMETERS = ' 


"ZSET TEST CHAR CODE IN SR7-SRO.a' 


"ZLOAD LINE NO. (8) INTO SR 3-7@' 


SEQ 0070 
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3388 017046 100 
3389 017047 040 046060 047111 ALINE: .ASCII ‘° LINE NO." 
3390 017054 020105 047516 056 

040 020040 040527 SELINE: .ASCI] * WAS SELECTED@' 
3392 017066 020123 042523 042514 
3393 017074 052103 042105 100 
3394 000001 


017101 DEND: . END 





H 6 
13:05 PAGE 7 
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AAA 003766 1179 11824 
AAAA 006300 1686 16894 
AAAB 006312 1690 16924 
AAB 004 11844 1187 
AABA 012624 $74 25798 
AABB 012650 25854 2591 2594 
AABC 012660 2580 25874 
AABD 012674 2588 25904 
AABE 012700 2587 25924 
AAE 002 1182 11854 
AASB 016412 743 33344 
ABA 004020 1192 11954 
ABAA 007302 1904 19074 
ABAB 007374 1911 19244 
ABB 00403 11974 1200 
ABBA 012716 2600 26034 
ABBB 012750 2609 26114 
ABE 004034 1195 11984 
ACA 004052 1206 12104 
ACAA 007406 1929 19334 
ACAB 007542 1946 19584 
ACB 12124 1215 
ACBA 012776 2621 26264 
ACBB 013034 2625 26344 
ACBC 013036 2633 26354 
ACE 004 1210 12134 
ADA 004104 1221 12244 
ADAA 097562 964 19674 
ADAB 007576 1969 19714 
ADB 004116 12264 1229 
ADE 004120 1224 12274 
ADTENP 003512 1101 11204 
A 004136 1235 12384 
AEAA 007612 1977 19814 
AE AB 007632 1985 19884 
AEB 00415 1239 12424 
AEC 004174 1244 12474 
AED 004214 1241 1246 1249 12514 
AFA 004236 1258 12614 
AF AA 007644 1994 19984 
AF AB 007672 2003 20 
AFB 004260 1263 12664 
AFBA 006324 1703 17084 
AF BB 006346 1710 17134 
AFBC 006 1712 1715 17174 
AFC 004302 1268 12714 
AFD 004322 1265 1270 1273 12754 
AGA 0043 1281 12844 
AGAA 007704 2011 20154 
AGAB 007732 2020 20234 
AGB 004350 1285 12884 
AGBA 006402 1723 17284 
AGBB 0064 32 1731 17344 
AGBC 006462 1740 17434 
AGBD 0064 76 1745 17494 
AGBE 006526 1733 1742 1747 1755 1757 17584 


I 6 
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AGC 004372 1290 12934 

AGD 004412 1287 1292 1295 12978 

AHA 004434 1304 13074 

AHAA 7744 202 20324 

AHAB 007772 2037 20404 

AHB 004450 1308 13114 

AHC 004472 1313 13164 

AHD 004512 1310 1315 1318 13204 

AIA 004534 1328 133514 

AIAA 010004 2046 20504 

AILAF 010144 2068 20714 

ALAS 010146 2055 2058 2062 2065 20724 

AIASA 010170 20784 2082 

AIAST 010210 2056 2059 2063 2066 2072* 2080* 20844 

AIB 004550 1332 133554 

AIC 004572 1337 13404 

AID 004612 1334 1339 1342 13444 

AINCRT 916531 718 33504 

AINPRG 016430 23374 

AJA 634 1351 13544 

AJAA 010222 2089 20944 

AJAB 010306 2103 21074 

AJAS 010310 2097 2100 21084 

AJASA 010332 21144 2118 

AJASB 010354 21208 2124 

AJAST 010374 2098 2101 2108* 2116* 2122* 21264 

AJB 004656 1356 13594 

AJBA 006656 1795 18004 

AJBB 006674 1802 18054 

AJBC 006716 1807 18104 

AJBD 006736 1809 1812 18144 

AJC 004 700 1361 13644 

AJD 004720 358 1365 1366 13684 

AKA 004742 1377 13814 

AKAA 104 2132 21374 

AKAB 010554 2156 21594 

AKAS 010556 2142 2146 2150 2153 21604 

AKASA 010600 21664 2170 

AKAST 010620 2143 2147 2151 2154 2160* 2168* 21724 
004752 1382 13844 

AKBA 006752 1820 18264 

AKBB 006760 18274 

AKBC 007010 1830 18334 

AKBD 007024 1834 18374 

AKBE 007054 1832 1836 1841 18444 

ALA 004764 1389 13924 

ALAA 010632 2178 218 

ALAB 010662 2188 21914 

ALAC 010674 2190 2193 21954 

ALB 005000 1393 13964 

ALBA 007176 1877 18824 

ALBB 007220 1884 18874 

ALBC 007246 1891 18944 

ALBD 007266 1886 1893 1896 18984 

ALC 005022 1398 14014 


ALD 005042 1395 1400 1403 14054 
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ALINE 017047 1037 33894 
AMA 005064 1414 14174 
AMAA 0706 2200 22044 
AMAB 010720 22 2207 
AMAC 010742 2210 2128 
AMB 005076 1418 14204 
AMBA 006542 1765 17704 
AMBB 006600 1775 17784 
AMBC 006614 1779 17824 
AMBD 006642 1777 178% 1785 17874 
ANA 005110 1426 14294 
ANAA 010754 2218 2223h 
ANAB 011024 2231 2235354 
ANB 5132 1431 14344 
ANBA 013050 26464 
ANBB 013062 2643 26484 
ANBC 013070 26494 2678 
ANBD 013132 26584 2662 
ANBE 013166 2664 26684 
ANBF 013172 2666 26704 
ANBG 013212 2667 2669 26778 
ANC 005150 1436 14394 
AND 005170 1433 1438 1441 14434 
ANW 005202 1448 14524 
ANX 005216 1453 14564 
ANY 005240 1458 14614 
ANZ 005260 1455 1460 1465 14654 
AOAA 011042 2240 22454 
AOAB 011112 2255 22554 
AOBA 00707 1850 18544 
AOBB 007112 1856 18594 
AOBC 007142 1862 18654 
AOBD 007162 1858 1864 1867 18694 
APA 005302 1473 14764 
APAA 011150 2261 22664 
APAB 11164 2272 22744 
APARM 016745 3156 33764 
APB 005314 1477 14794 
APBA 014152 3006 30154 
APBB 014160 30164 53027 
APC 015300 764 32274 
APGEND 016566 722 33554 
015263 768 32234 
AQA 005326 1484 14874 
AQAA 011202 2282 22874 
AQAB 011422 2313 231 
AQAS 011424 2294 2300 25306 2310 
AQASA 011452 235244 2328 
AQAST 011472 2295 2301 2307 2311 
AQB 534 1488 14914 
AQBA 014246 3033 30384 
AQC 5 1493 149 
AQD 005404 1490 1495 1498 15004 
ARA 005426 1507 1510 
ARAA 011504 2336 23414 
ARAB 011652 2360 23654 


-MAIN. MACY11 
CZDCAC.P11 1 
ARAS 011654 
ARASA 011710 
ARAST 011730 
ARB 005442 
ARBA 005526 
ARBB 005540 
ARC 005464 
ARD 005504 
ARXCSR 015505 
ARXSB 015520 
ARXWAS 015535 
ASA 5552 
ASAA 011742 
ASAB 011774 
ASAC 012006 
ASAD 012020 
ASAS 012026 
ASB 005574 
ASC 005616 
ASD 005636 
ASETSR 016433 
ATA 005660 
ATAA 012066 
ATAB 012112 
ATAC 012114 
ATB 005672 
ATLAST= 177777 
ATNUMB 015271 
ATXCSR 015446 
ATXSB 015461 
ATXWAS 015476 
ATO 003756 
AT1 004010 
AT10 004524 
AT100 013222 
AT101 013240 
AT102 013256 
AT103 013274 
AT104 013312 
AT105 013330 
AT106 13346 
AT107 013364 
AT11 004624 
AT110 013402 
AT111 013420 
AT112 13436 
AT™113 013454 
AT114 013472 
AT115 013510 
AT116 013526 
AT117 = =013544 
AT12 732 
AT120 013562 
AT121 013600 
AT122 013616 
AT™123 013634 


30A(1052) 17=MAR-78 
7-MAR-78 13:04 
2346 2350 
23734 = 
2347 2351 
1511 15144 
1531 15364 
1537 15394 
1516 15194 
1513 1518 
1957 32524 
1950 32544 
1954 32574 
1545 15484 
2385 23884 
2392 23954 
2396 24004 
2394 2399 
2388 2389 
1550 15534 
1555 15584 
1552 1557 
714 33384 
1569 15724 
2417 24244 
24298 2431 
2423 24304 
1573 15754 
6434 3031 
772 32254 
1923 32454 
1916 32474 
1920 32504 
1167 11764 
1177 11894 
1302 13254 
2641 26834 
2684 26934 
2694 27034 
2704 27134 
2714 27234 
2724 27334 
2734 27434 
2744 27534 
1326 13484 
2754 27634 
2764 27734 
2774 27834 
2784 27934 
2794 28034 
2804 28134 
2814 28234 
2824 28334 
1349 13744 
2834 28434 
2844 285354 
2854 28634 
2864 28734 


2354 
2355 


1521 


2402 
24074 


1560 
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2357 
2358 


15234 


24054 


15624 


23644 
2364* 


K 6 


2375* 


23798 


= 


-MAIN. MACY11 30A(1052) _17-MAR-78 13:05 PAGE 78 SEQ 0076 
CZDCAC.P11 17-MAR-78 13:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
AT124 013652 2874 28854 
AT125 013670 2884 28934 
AT126 §©013706 2894 29034 
AT127 = 013724 2904 29134 
AT13 004754 1375 13864 
AT130 §=—.013 742 2914 292 3H 
AT131 013760 2924 29334 
AT132 = 0013776 2934 294 SH 
AT133 014014 2944 295 3h 
AT134 014032 2954 29634 
AT135 014050 2964 29738 
AT136 §=014066 2974 29834 
AT137 = 014104 2984 29934 
AT14 005054 1387 14114 
AT140 =014122 30034 
AT141 014236 3004 30304 
AT15 005100 1412 14234 
AT16 005172 1424 14454 
AT17 005272 1446 14704 
AT2 042 1190 12034 
AT20 005316 1471 14814 
AT21 005416 1482 15044 
AT22 005516 1505 15284 
AT25 005542 1529 15424 
AT24 005650 1543 15664 
AT25 005674 1567 15784 
AT26 005774 1579 16014 
AT27 006074 1602 16244 
AT3 004074 1204 12184 
AT30 006174 1625 16474 
AT31 006220 1648 16594 
AT32 006244 1660 16724 
AT33 006270 1673 16854 
AT34 006314 1684 17004 
AT35 006372 1701 17204 
AT 36 006532 1721 17624 
A137 006646 1763 17924 
AT4 004126 1219 12324 
AT4O 006742 1793 18174 
AT41 007060 1818 18474 
AT42 007166 1848 18744 
A143 007272 1875 19014 
AT44 007376 1902 19264 
AT45 007552 1927 19614 
AT46 007602 1962 19744 
A147 007634 1975 19914 
ATS 226 1233 12554 
AT5O 007674 1992 20084 
ATS1 007734 2005 20254 
ATS2 007774 2026 204 54 
ATS3 010212 2044 20864 
AT5S4 010376 2087 21298 
ATS5 010622 2130 21754 
AT56 010676 2176 21974 
ATS7 010744 2198 22154 
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AT60 011032 2216 22374 

AT61 011120 2238 225 8A 

AT62 011172 2259 C27 9A 

AT63 011474 2280 23334 

AT64 011732 2334 23824 

AT65 012046 2383 24144 

AT66 012120 2415 24354 

AT67 012176 2436 24574 

AT7 004424 1279 13014 

AT70 012262 2458 24798 

AT71 012360 2480 25054 

A172 012436 2506 25274 

AT73 012520 2528 25484 

AT74 012610 2549 25714 

AT75 012706 2572 25974 

A176 012762 2598 26184 

A177 013040 2619 26404 

AUA 005704 1581 15844 

AUAA 012134 2438 24444 

AUAB 012160 24504 

AUAC 012166 2443 24518 2654 

AUB 005720 1585 15884 

AUC 005742 1590 15934 

AUD 005762 1587 1592 1595 15974 
AVA 1604 16074 

AVAA 012212 2460 24664 

AVAB 012250 2465 24734 

AVAC 012252 2472 24744 

AVB 006020 1608 16114 

AVC 006042 1613 16164 

AVD 006062 1610 1615 1618 16204 
AWA 006104 1627 16304 

AWAA 012272 2482 24864 

AWAB 012322 24934 2499 2502 

AWAC 012332 2487 24954 

AWAD 012346 2496 24984 

AWAE 012352 2495 25004 

AWAS 016424 739 2673 2676 33364 
AWB 006120 1631 16344 

AWC 006142 1636 16394 

AWD 006162 1633 1638 1641 16434 
AXA 006204 1650 16534 

AXKAA 012404 2508 25164 

AXAB 012432 2514 2522a 

AXAC 012434 2521 25234 

AXB 006216 1654 16564 

AYA 230 1662 16654 

AYAA 012456 2530 5374 

AYAB 012502 254184 2545 

AYAC 012512 2535 5434 

AYB 006242 1666 16684 

AZA 006254 1675 16784 

AZAA 012540 2551 25584 

AZAB 012576 2556 25664 

AZAC 012600 2564 25674 
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BDCNV 003404 10994 

BDCNVA 003624 1103# 1106 

BELL = 000007 642K 

BITO = 000001 ’ 120. 12% We as ee eee) St et ies RN Ca: 
435 40° 0G ae IS eee 6 sR? 9800 des ies 
1827 +1828 ~='«'1837—S's«d1838~—Sté«‘BSGSté«‘BSD~—s«*d18HO—s—é«‘iBGH(C (GsC«‘i9BGSs=“‘<‘z SB O8176 C3181 

BIT! = 000002 Gis 126212671272 16452 1656 = 1457s «'1461—Ss«*1462,—Ss«*1465)—Ss«*1806—Ss«d1811—Ss«30039 

BIT10 = 002000 6064 723 1630 1634 1635 1639 1640 1643 3175 

BIT11 = 004000 6054 819 

BIT12 = 010000 6044 1653 2391 2400 

BIT13 = 020000 603 758 1665 1829 1833 1840 

BIT14 = 040000 6024 815 1678 1730 1739 1743 1754 

BIT15 = 100000 600 6014 1417 1689 17746 1778 1784 £1855 1861 1866 1883 1890 1895 

BIT2 = 000004 614@ 1130 1286 «1288 = 1289.-s«i1293)—Ss—i«d1294=S'i«*i1297~=S—«W2G7Hes—“‘z#OO171Q2~—SC«*Y1801~S 2183 
2206 «= 2292,-—'s—«i 370s 407s 47S 303883049 Ss 30963289 3167 

BIT3 = 000010 Gis 1507 15111512 151613171520 14871497 1492 149614971500 

6 

BITS = 000020 sie. 1331. 4855 ee ee OO SK: oe hc 
3160 3165S 3166 

BITS = 000040 611" 1536 2663 

BIT6 = 000100 610# 1355 1359 1360 1364 1365 1368 1549 1553 1554 1558 1559 1562 
a aS AS a“ A Ne is Se Se USS Se SS 
2561 2567s 5812582 2258S 2628 26.80 

BIT? = 000200 609" 1572 1910 1913 

BIT8 = 000400 6084 1392 1396 1397 1401 1402 14605 1584 1588 1589 1593 1594 1597 
1882. 1887S s«1894. = 2098.-—Ss 2099s 3134S 3162 

BIT9 = 001 6074 802 O25. $e07:  6tt le: = re 

BMOVA 003372 10934 1095 

BMOVE 003362 1041  1089# 

CARMSK 001234 6984 1136 31461-31718 «31748 3178 =. 3183 

CC = 1777% S95 

CHAINN 001756 686 8154 

CHALT = 104005 632 

CHNA 001774 816 8198 

CHNAA 002012 820 8234 

CHNAB 001766 817# B22 

CHNB = 002014 805 8254 

CHR1 001236 699" 

CHR2 001240 700# 

CHR3 = 001242 7014 

CMPT 014334 2067-2155. 2312s: 2359S 3055 

CMPTA 014414 3056 «= «3058 = 3060 »=Ss(3062si«3064 S306 7 

CMPTB 014420 3066 46-3068 

CNVCTR 003504 1102" 1105* 1117¢ 

CRBUF 001230 6964 = 735 738 = 1140 3024 = 31448 

CRBUFA 001232 sore 735 742 1135* = 1136* = 2656* =. 2658* 2672S 3019* = 3020", 3118* 3130" ~=—-3140 

* 

CTRA 001246 702H# = 1131% = 1142* = 20508 =. 2056* = 2094* »=—- 2098* = 2102, 2137" «= 2143" = 2287" = 2295 = 23418 
2347% 2668%  2669%  2661* 2677" 3015" 3026" 3055 3057 3059 

CTRB 001250 sronw 2051 2059 2095 2101 © 2102 2158+ ©2147" 2288 2501 2342 2351+ 3055 

CIRC 001252 705#@ 2052* 2063* 21398 2151% 22898 2307 2343" 2355" 3057 3061 3065 

CTRD 001254 706# 2053% 2066* «21408 = 2154% = 2290® = 2311* = 2344e = 2358e §=—- 3059S 3063S 3065 

CURTST 001144 6664 804 810 836s 

DATAA 003564 11324 ©1143 
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DATCHK= 104004 6314 1141 3025 145 

DATTST 003532 11274 2689 2699 2709 2719 2729 2739 2749 2759 2769 2779 2789 279 
2809 2819 2829 2839 2849 2859 2869 2879 2889 2899 2909 2919 2929 
2939 2949 2959 2969 2979 2989 2999 

DATO 013232 2686 26894 

DAT 013250 2696 26998 

DATIO 013412 2766 27694 

DAT11 013430 2776 27798 

DATI2 013446 2786 278948 

DAT13 13464 2796 2799K 

DAT14 013502 2806 28094 

DATIS 013520 2816 28194 

DAT16 013536 2826 28294 

DAT17 013554 2836 28394 

DAT2 3266 2706 27094 

DAT2O 013572 2846 28494 

DAT21 013610 2856 28594 

DAT22 013626 2866 28694 

DAT23 13644 2876 2879 

DAT24 013662 2886 28894 

DAT25 013700 2896 2899 

DAT26 013716 2906 29094 

DAT27 013734 2916 29198 

DATS 13304 2716 2719 

DATSO 013752 2926 2929K 

DAT31 013770 2936 29394 

DAT32 014006 2946 2949 

DATSS 014024 2956 2959 

DAT 34 14042 2966 29694 

DAT35 014060 2976 2979 

DAT36 014076 2986 2989H 

DAT3/ 14114 2996 29998 

DAT4 013322 2726 2729K 

DATS 013340 2736 2739K 

DAT6 013356 2746 27494 

DAT? 013374 2756 2759 

DCACHE 002144 784 8584 913 1151 

DECVAL 003524 1099 11254 

DELAY = 104016 6414 998 1888 1982 2000 2017 2034 2075 2078 2111 2114 2120 2165 
2166 2185 2228 2250 2269 2320 2324 2367 2375 2409 2605 2611 3051 
3082 3099 

DEND 017101 33944 

DIGIT 003506 1108* 1117* 1114* 1115 11184 

DLCNT 002730 978* 980 9914 

DLY 002 690 9784 

DLYA 002706 9834 988 

DLYB 002712 9844 985 

DLYC 002724 981 9894 

DTCHK 001344 68C 7354 

DTCHKA 001404 736 7478 

EHALT = 104010 6554 778 

EHLT 001332 684 (29H 

EHLTA 001342 730 732h 

EMTA 002124 8444 

EMTINT 002112 476 8414 

EMTTAB 001170 6764 846 
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5260 775 32228 
ERCLGT 015772 2362 32854 
ERCTR 001244 7024 
ERDAT 0163571 746 33314 
ERR 14 679 7504 
ERRA 001456 753 7584 
ERRB 001542 750* 751* 754* 755* 756* 7764 
ERRC 001546 759 7784 
ERRD 001556 760* 761* 763 7814 
ERRE 001560 752s 757* 779 7824 
ERROR = 104003 63 1153 1186 1199 1214 1228 1240 1245 1250 1264 1269 1274 1286 
1291 1296 1309 1314 1319 1333 1338 1343 1357 1362 1367 1383 1394 
1399 1404 1419 1432 1437 1442 1454 1459 1464 1478 1489 1494 1499 
1512 1517 1522 1538 1551 1556 1561 1574 1586 1591 1596 1609 1614 
1619 1632 1637 1642 1655 1667 1680 1691 1711 1716 1732 1741 1746 
1756 1776 1780 1786 1808 1813 1831 1835 1842 1857 1863 1868 1885 
1892 1897 1970 1986 2004 2021 2038 2189 2194 2211 2232 2254 2275 
2393 2397 2403 2428 2453 2471 2492 2501 2520 2544 2565 2584 2593 
2610 2632 2670 3045 
ERROR1= 104015 4404 745 1922 1956 2069 2104 2157 2314 2361 2675 
ERR1 001430 689 7544 
ERXTIM 015730 2315 32798 
ESTPCD 015606 2105 32654 
ETCLGT 015657 2158 3272 
ETXTIM 015544 2070 32598 
FORWD 2042 801 8314 
FORWDA 002 8364 840 
FORWDB 002074 8384 
GETRDY 001646 7964 814 826 830 1173 
GRCNT 002756 10024 1004 
GTBIN 31 10534 
GTBINP 003232 10624 1134 2650 3018 3129 
GTRDYA 001674 8014 812 
GTRDYB 001700 8024 
GTRDYC 001716 803 8064 
GTRDYD 001740 809 8114 
GTRDYX 001654 797# 828 
ICTR 001152 6694 821* 834* 839* 
INBIN 003126 10404 2646 3014 3128 
INCRTN 001302 717# 813 
KSTART 001142 6654 796 1167* 
LDLINE 017010 1011 33834 
LINSEL 005002 10104 1171 3075 3090 3113 3126 
MACHER rs 04 787* (97x = 1182* 1195* 1210* 1224* 
MOUTIN 014656 3119 3131 31344 
NOP = 240 5984 
NXTST 001150 6684 796* 811 827 831 835% 
OACNV 33 737 741 762 766 770 1032 10724 1914 1918 1948 1952 2671 3154 
OACNVA 0033512 10764 1085 
OACNVX 00336 1072* 1076 1080* 1081* 1082* 1083* 10874 
OPEN S994 652 664 665 666 667 668 669 670 681 695 696 697 
698 699 700 701 702 703 704 705 706 707 708 709 710 
711 776 781 782 878 879 892 893 898 905 955 964 991 
999 1007 1008 1046 1047 1048 1049 1050 1051 1087 1117 1118 1119 
2084 2126 2172 2330 2379 3083 3100 
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OVRLAY 002632 9678 2421 2512 

OVRLYA 2642 9694 974 

OVRLYB 2662 972 9754 

PARMTS 016727 3159 33734 

PFAIL 003644 793 11474 1156 

PIND 003156 10494  1064* 

POPSP = 005726 6174 986 989 

POPSP2= 022626 soo" atte 1185 1198 1213 1227 2430 2452 2473 2500 2522 2545 2566 

PRGEND 001312 7214 829 

PRGNUM 001140 6644 767 791* 1154 

PRGTAB 001156 6714 795 

PRGO 003726 671 11674 

PRGOA 003752 1160 11734 

PRG1 014422 672 30734 

PRGIA 014444 1161 30804 3084 

PRGIB) = 014462 3080* 30834 

PRG2 014466 673 30884 

PRG2A 014510 1162 30954 3107 

PRG2B 014540 3097x 31004 

PRG3 014562 674 31114 

PRG3A 4604 1163 31184 3120 

PRG4 014620 675 31244 

PRG4A 014640 1164 31294 3132 

PRTYO = 6264 

PRTY1 = 6254 

PRTY2 = 0001 6244 

PRTYS = 000140 6234 

PRTY& = 0002 6224 661 663 

PRTYS = 000240 6214 653 655 

PRTY6 = 000300 6204 

PRTY7 = 000340 477 6194 794 1354 1548 1907 1933 

PSW = 177776 5 786* 798* 982* 1354* 1548* 1907* 1953* 2425% 2444% 2467% 2468%* 2489% 

2517* 2538%* 2559% 2560*  2629* 

PTO 003152 10474 1053 1059* 

PTOP 003160 10504 062 1068* 

PT] 003154 10484 1053* 1054* 1057* 1058* 1059 1060 

PT1P 003162 10514 1062* 1063* 1066* #1067* 1068 1069 
3654 1147 11504 

POTIT 015311 1169 32298 

PITIT 016043 3074 3292h 

P2TIT 016103 3089 2984 

P3TIT 1 3112 33584 

P4TIT 016654 3125 33654 

RCMSK 002776 1003 10074 

RCNT 001226 6954 

RESTAR 003670 11544 

RIND 003150 1040* 1042 1043 10464 1055* 

RNCNT 003 1005* 10084 

RNGEN 002404 917# 994 1002 

RP1 002452 917 921* 928 9304 

2 002454 920 924 927* 9314 

RSTART 003714 1158 1604 

RSTPC 002276 881* 890 8924 

RSTPSW 002300 882* 889 8934 

RSTREG= 104014 6394 1096 


e # 
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RSTRG 002242 688 8814 

RTNNO 001146 6674 771 788* 808 832* 

RXBUF 001102 6494 1140 1196 2208 2253 2255 2274 2322 2369 2405 2615 2656 3024 
3043 3101 3144 

RXBUFT 001262 7094 

RXCSR 001100 6484 1017 1129* 1138 1183 1261* 1266* 1271* 1429* 1430 1435 1439* 1440 
1452 1456* 1457 1461* 1462 1465* 1476 1487 1491* 1492 1496* 1497 1500* 
1510 1514*  =1515 1519* 1520 1523* 1536 1549 1553* 1554 1558* 1559 1562* 
1572 1584 1588* 1589 1593* 1594 1597* 1607 1611* 1612 1616* 1617 1620* 
1630 1634* 1635 1639* 1640 1643* 1653 1665 1678 1689 1708* 1709 1713* 
1714 1728* 1729 1730 1734* 1738 1743 1749* 1753 1770* 1771* 1773 1778 


2 2 
2628* 2630* 2654 2663 3013* 3022 3039* 3041 3142 3166* 3170* 3175* 3179s 


RXCSRT 001260 7084 1729% 1738% 1739 1753% 1754 1773% 1774 1783* 1784 1944* 1945 1953 
2390* 2391 2395 2607 

RXLVL 001112 6534 899 2538 2559 

RXVTR 001110 652 897 1026* 2587 

SAVREG= 104013 6384 1089 

SAVRG 002202 687 8684 

SCOPE = 104012 637@ 6(11450—iCis«11864—C=“<«‘sia2VTDs—“‘i‘éi2?MGC‘étRSS:~Ci*1275——(i‘é1299—'si=«‘a322':—i=3KH“C(‘«‘éSTOOC 


SCOPTR 001154 6704 817 835* 838* 

SELCAD 016275 3078 3093 33204 

SELCAR 016750 3116 3377# 

SELINE 017061 1034 33914 

SELPAR 016140 3151 33034 

SETPAR 014740 3076 3091 3114 3127 31504 

SETSR 001272 7134 =§=1172 

SPBOT = 001076 597# 785 799 1152 

SR = 177570 5944 723 729 758 789 802 806 815 819 825 1013 3080 3081 
3097 3098 3118 3134 3153 

SRESET= 104011 6564 800 1252 1298 1321 1345 1369 1406 1434 1466 1501 1524 1563 
Seon de 1644 1717 1758 1787 1814 1844 1869 1898 1909 19435 1971 

SRSETT 002362 685 9094 911* 

SRT 001266 7114 = =1127e 893153" 3155 3160 3165 3167 3172 3176 3181 

STAL 002732 678 9944 

STALA 002752 997* 9998 

STALB 002754 996 10004 

STALL = 10400 6294 3136 

START 001562 646 7844 

STLMSK 001270 7128 5 

STLSPV 002332 685 9024 

STLSRV 002302 682 8954 

STPARA 015140 3173 31814 3182 3184 

STPARB 014772 1128 1157 3095 31604 


STPRA 002320 895* 8984 


ee 
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STRXD 014314 2515 2536 2557 2578 2603 2626 2627 30494 

STRXV = 104006 6334 2513 2534 2555 2579 2624 

STTXV = 104007 6344 2422 2442 2464 2486 

SUBTEN 003444 1 11084 

SUBTNA 003450 11094 1112 

SUBTNB 003464 1110 111354 

SVRPC 002236 868* 876 878A 

SVRPSW 002240 869* 875 8794 

TEMP 0012 710 1015* 1029* 1030* 1031* 1033 1913* 1915 1947* 1949 
TENPWR 003510 11035* 1109 1113 11194 

T 001122 6574 

TKLVL 001132 6614 

K 001120 6564 

TKVTR 001130 6604 

T 001126 6594 946* 

TPLVL 001136 6634 

P 001124 6584 947 

TPVTR 001134 6624 

TX = 11744 12074 

TXBUF 001106 6514 1137* 1225 1937* 1940* 1967* 1981* 1999%  2016* 203535* 2077* 21135* 2119% 


TXCSR 001104 6504 1130* 1132 1211 1238 1242* 1243 1247* 1248 1251* 1262 1267 1272 


TXCSRT 001256 707# = 1912* 1919 


TXLVL 001116 6554 906 2444 2467 

TXVTR 001114 6544 904 1028*  2495* 

TYP 002456 676 9334 

TYPA 002466 9364 945 954 

TYPC 002504 938 9404 

TYPD 002532 944 9464 951 953 

TYPDAT 002576 936* 937 940 942 946 950* 952% 9554 

TYPE = 104000 6274 713 717 721 963 1010 1036 1168 3073 3077 3088 3092 3111 
3115 3124 3150 3158 

TYPES = 104001 6284 774 

TYPF 002550 941 9504 

TYPG 002562 943 9524 

TYPS 002600 677 957# 965 

TYPSA 002624 961 9634 

TYPSB 002626 959* 960 9644 

VECTAB 015160 1025 31874 

= 000137 26804 2682 26874 2692 26974 2702 2707H# 2712 2717# 2722 C7e7H =2732 27378 

2742 C747# = =—2752 2757# 2762 2767# 2772 2777## §=2782 2787# 2792 C797# §=2802 
28074 28174 28278 32 2837 28478 28574 28674 
2872 2877# 2887# 2 28978 902 29078 C917# = 2927# 2932 
2937# 2942 29474 2952 295 7h 2 29674 2972 2977# 2982 29878 2 29974 


296 299 
2682 26914 2692 27014 2702 27114 2712 C721# 2722 27351# 2732 274148 
2742 27514 2752 27614 2762 2771# 2772 27814 2782 27914 2792 28014 2802 


-MAIN. 
CZDCAC.P11 

= 017101 
. ABS. 017101 


FRRORS DETECTED: 


DSKZ:CZDCAC ,DSKZ: CZDCAC.SEQ=DSKZ:CZDCAC.SML,DSKZ:CZDCAC. 
RUN-TIME: 10 15 1 
RUN-TIME RATIO: 123/27=4.4 


CORE USED: 532K 
DOCUMENT PAGES: 


MACY11 30A(105 


000 


0 


SE COND 


28114 


2319 
3164 


S 


(65 PAGES) 


84 


2) 17=MAR-78 
17=MAR=78 13:04 


13:05 PAGE 86 
CROSS REFERENCE TABLE -=- USER SYMBOLS 
2812 28214 2822 28314 2832 28414 
28814 2882 28914 2892 29014 2902 
2942 29514 2952 29614 2962 29714 
464 466 408 470 472 474 
492 494 496 498 500 502 
$18 520 $22 524 526 528 
544 546 548 550 $52 $54 
$70 572 $74 576 $78 580 
724 948 1022 1056 1065 1133 
2366 2652 2655 2659 3017 3023 
3168 3177 


P11 


G 7 


28514 


2912 
2 


28614 


2922 


29914 
84 


SEQ 0084 

2862 28714 
29314 292 

2 30014 
486 488 
$12 $14 
538 540 
564 566 

590 6454 
2110 2162 
3143 3161 


